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Aanvullende informatie omtrent het aansluiten van de VDU-kaart op de 
Junior Computer met cassette- of floppy disk-interface. 





Indeling: 
e Source-listing voor de Junior met cassette-interface. 


e Source-listing voor de Junior met floppy disk-interface. 
e Twee grafische demo-programma'’s in BASIC, 


@Sl@lkgtuu Fe 1983 Uitgeversmaatschappij Elektuur BV 





Junior computer met cassette-interface 


Bij het aansluiten van de VDU-kaart op junior computers met cassette- 
interface worden alle variabelen voor de beeldscherm-sturing in pag. $1A 
geschreven. De geheugenplaatsen $1A29 ... $1A59 bevatten de variabelen 
voor de video-driver. Deze driver is ondergebracht in de EPROM's IC4 en 
IC5 op de interface-kaart. Wegens plaatsgebrek is in beide EPROM's het 
programma PME komen te vervallen. De adressen van alle routines zijn 
ekwivalent aan die van de EPROM-set die met de ELEKTERMINAL werkt. 
De Junior met cassette-interface heeft een seriële keyboard-ingang en hij 
wordt, zoals tot nu toe gebruikelijk was, via deze ingang met behulp van de 
RUBOUT-toets gestart. 

Men heeft nu de beschikking over twee uitgangen die door het zetten of 
terugzetten van flags in- en uitgeschakeld kunnen worden: 

1. Centronics-interface met flag 1A56 (CENFLG) 

2. Seriële printer-uitgang met flag 1A58 (PRIFLG) 

Staat in deze flags de waarde QQ, dan zijn de uitgangen uitgeschakeld. De 
uitgangen kunnen worden ingeschakeld door het ingeven van een wille- 
keurige waarde die niet gelijk is aan de waarde Q@. De beeldscherm-uitgang 
is altijd aktief. 


9913: 
9929: 
9539: 
9049: 
9259: 
g56g: 
9879: 
9089: 
9899: 
9199: 
0118: 
9129: 
9139: 
g149: 
8159: 
9169: 
9179: 
9189: 
919%: 
9299: 
9219: 
8228: 
8238: 
249: 
g25g: 
9269: 
9279: 
8289: 
g29g: 
3309: 
9319: 
3329: 
8339: 
9340: 
9355: 
9369: 
9375: 
9389: 
3399: 
p498: 


9415: 
g42g: 
8439: 
Z445: 
g45g: 
9468: 
g478: 
489: 
9490: 
0599: 
8519: 
g529: 
9539: 
954: 
g55g: 
9565: 


9C8D 


2C89 


9C89 
9C8B 
9C8g 
gC8g 
9C89 
9C8g 
2C8g 
2C8g 
9C89 
ZC8g 
9C8g 
gC8g 
gC8g 
9C89 
gC8g 
9C89 
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ORG $9C89 


SOURCE LISTING OF THE VIDEO HANDLER FOR 
ELEKTOR'S JUNIOR COMPUTER 


WRITTEN BY A. NACHTMANN 
© 1983 


COPYRIGHT BY ELEKTOR/ELEKTUUR 


PROCESSOR: 6592 OR 65CH2 
CRT CONTROLLER: 6845 MOTOROLA, ROCKWELL, SYNERTEC 


SCREEN COMMANDS OF THE DOS JUNIOR COMPUTER 


OPERATING SYSTEM: OS-65D V3.3 (OHIO SCIENTIFIC) 


CARRIAGE RETURN 

LINE FEED 

<ESC><1> CLEAR SCREEN & HOME 

<ESC><2> CLEAR SCREEN & HOME 

<ESC><3> HOME CURSOR 

<ESC><4> ERASE TO EOS 

<ESC><5> CURSOR UP 

<ESC><6> CURSOR DOWN 

<ESC><8> ERASE TO EOL 

<CTL-H> CURSOR LEFT 

<CTL-P> CURSOR RIGHT 

<CTL-F> CURSOR TO FRONT OF LINE (EMULATED) 
<CTL-R> CURSOR TO REAR OF LINE (EMULATED) 
<CTL-IÒ TAB 8 COLUMS (EMULATED) 
<CTL-T> RETYPE THE CURRENT LINE GEMULATED) 
*POINTERS AND TEMPS * 


RAMPTR %* SZ9FC THIS POINTER IS SWAPPED TO 
PAGE S$lA 
TOPPIA * $SIA59 TOP OF THE PIA (6532) RAM 
FLN * TOPPIA -2B FIRST LINE POINTER 
CLN * FLN +92 CURRENT LINE POINTER 
LLN ” CLN +92 LAST LINE POINTER 
SCRPTR * LLN +92 SLAVE SCREEN POINTER 
CURSOR * SCRPTR +52 CURRENT CURSOR 
INLINE * CURSOR +92 IN LINE OF WINDOW 
COL x INLINE +91 CURRENT COLUMN 
ESCFLG * COL +9l ESC FLAG 
TEMCOL * ESCFLG +91 SLAVE COLUMN 
RAMBEG * TEMCOL +91 THE REFRESH RAM STARTS HERE 
CHAPLN * RAMBEG +92 CHARACTER/LINE 
LPSCR *%* CHAPLN +9Ì LINES/SCREEN 
FORMAT * LPSCR +91 SCREEN FORMAT 
DUPLEX * FORMAT +91 Z=WITHOUT ECHO, 1=WITH ECHO 
TABLE %* DUPLEX +91 CRT FORMAT TABLE 


9579: 
3589: 
959: 
697: 
9615: 
9629: 
9639: 
ge4g: 
965: 
g66Ĳ: 
9678: 
g68g: 
869: 
9799: 
9719: 
9729: 
0738: 
8740: 
9758: 
8760: 
9778: 
9789: 
9799: 
489: 
9819: 
829: 
8839: 
9849: 
85%: 
9869: 
9879: 
7889: 
2890: 
098: 
go18: 
9929: 
9935: 
494: 
go5g: 
996: 
9979: 
9987: 
999: 
1999: 
1919: 
1929: 
1939: 
1949: 
1959: 
1969: 
1979: 
1989: 
1999: 
1198: 
1119: 
1128: 


gc8g 
9C8g 
9C88 
gC8g 


9C89 
gCc8g 
9C89 
gc 89 


9C8g 
gC8g 


9C8g 


gc89 
989 
9C85 
gC8g 
9C8g 
9C87 
9C8g 
gC8g 
9C89 
9C8g 
gC8g 
gC89 
gC89 
9C8g 
9C85 
9C85 


9C85 
9C8g 
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JMPVEC * TABLE +12 COMMAND ADDRESS POINTER 
CENFLG * " JMPVEC +92 CENTRONICS FLAG 

TRAPRO %* CENFLG +91 PROCESSOR FLAG (NOT USED) 
PRIFLG * TRAPRO +41 SERIAL PRINTER FLAG 
AHOLD * FLN „Jl SAVA A 

XHOLD %* AHOLD —4l SAVE X 

YHOLD %* XHOLD —9l SAVE Y 

PZPTR %* YHOLD —92 WE NEED IT FOR KB-9 BASIC 


*SPECIAL CHARACTERS* 


SPACE *& sgg29 

ESC * $021B 

KJUNIOR'S SERIAL I/4* hm 
SPAD * SlA89 6532 IC ON THE STANDART JC 


*VIA ON THE EXPANSION BOARD OF THE JUNIOR COMP‚* 


VAPBD %* $1839 PORT B DATA 
VAPAD * VAPBD +91 PORT A DATA 
VAPBDD * VAPBD +92 PORT B DATA DIRECTION 
VAPADD %* VAPBD +93 PORT A DATA DIRECTION 
VATACL * VAPBD +44 Tl, LATCH-LOW, COUNTER-LOW 
VATACH * VAPBD +95 Tl, COUNTER-HIGH 
VATALL * VAPBD +96 Tl, LATCH-LOW 
VATALH * VAPBD +97 Tl, LATCH-HIGH 
VATBCL * VAPBD +98 T2, LATCH-LOW,COUNTER-LOW 
VATBCH * VAPBD +49 T2, COUNTER-HIGH 
VASR * VAPBD +JA SHIFT REGISTER 
VAACR % VAPBD +9B AUXILARY CONTROL REGISTERS 
VAPCR * VAPBD +9C PERIPHERAL CONTROL REGISTER 
VAIFR *& VAPBD +9D INTERUPT FLAG REGISTER 
VAIER * VAPBD +9E INTERUPT ENABLE REGISTER 

* 


VAPADN VAPBD +gF PORT A DATA, NO HANDSHAKE 


*CRT ADDRESSES * 


AR n SD809 ADDRESS REGISTER OF THE CRT 
RFILE * AR +91 REGISTER FILE OF CRT 


AAAAAKAAAAAAARAAAAAAAAAAAKAKK 


* VT 52 COMPATIBLE TERMINAL * 
KRARKKKKAKKKKKKAKKKKK KKK K KK 


1139: 
1145: 
1158: 
1169: 
1178: 
1185: 
1199: 
1299: 
1219: 
1228: 
1239: 
1249: 
1259: 
1269: 
1278: 
1289: 
1299: 
1399: 
1310: 
1329: 
1334: 
13495: 
1359: 
1369: 
1370: 
1389: 
1399: 
1495: 
1419: 
1429: 
1439: 
1449: 
1459: 
1469: 
1478: 
1489: 
1499: 
1590: 
1518: 
1529: 
1539: 
1549: 
1559: 
1569: 
1579: 
1589: 
1599: 
1699: 
1619: 
1629: 
1639: 
1649: 
1659: 
1669: 
1679: 
16895: 


9C8g 
9C89 
gC89 
9Cc8g 
gC89 
gC8g 
9C89 
9C89 
9C89 
9C8g 
gC87 
9C89 
9C89 
9C8g 
2C8g 
gC8g 
9C8g 
gc8g 
gC8g 
gC8g 
gc8g 


gC85 
gC83 
gC85 
gC87 


ZC8A 
9C8B 
gC8C 
9C8D 
ZCBE 
gceF 


9C IP 
gC93 
gC95 
ZC 98 
9C 9B 
9C IC 
ZC IF 
ZCA 2 


BCAS5 


AD 
C9 


8D 


EA 


EA 
EA 
EA 
63 


29 
Bg 
BD 
8D 


BD 
8D 
6C 


4C 


2D 
1B 
gg 
3A 


F4 
19 
39 
54 
39 
54 


FA 


lA 


lA 


14 


15 
lA 


15 
lA 
lA 


BC 
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*INTERNAL 6845 REGISTER FILE* 


HORTOT * $9939 HORIZONTAL TOTAL-1 
HORDIS * $999l HORIZONTAL DISPLAYED 
HSYPOS * $9992 HORIZONTAL SYNC POSSTION 
VHSYWI * $9993 VERTICAL, HORIZONTAL SYNC WIDTH 
VERTOT * $9994 VERTICAL TOTAL-1 

VTOTAJ * $9925 VERTICAL TOTAL ADJUST 
VERDIS * $9996 VERTICAL DISPLAYED 
VSYPOS * $9937 VERTICAL SYNC POSITION 
MODE ee $3998 INTERLACE MODE REGISTER 
SCANLN * $9999 CHARACTER SCAN LINES-] 
CURSTA * $9ZZA CURSOR START 

CUREND * $99JB CURSOR END 

DSPSTH * $999C DISPLAY START HIGH 
DSPSTL * $JZ9D DISPLAY START LOW 

CURPOH * $99JE CURSOR POSITION HIGH 
CURPOL «* $SJZJF CURSOR POSITION LOW 
LIPENH * $9919 LIGHT PEN HIGH 

LIPENL * $991l LIGHT PEN LOW 

UPDATH * $9212 UPDATE HIGH (ROCKWELL,SYNERTEK) 
UPDATL * $9913 UPDATE LOW 

DUMMY %* $ZZ1F DUMMY REGISTER 


K*KVIDEO HANDLER*** 


VIDEO LDA AHOLD GET THE CHARACTER 
CMPIM ESC IS IT THE ESC CHAR, ? 
BNE CHECK 
STA ESCFLG SET THE ESC FLAG 


VIDEND NOP 
NOP 
NOP 
NOP 
NOP 
RTS 


CHECK JSR COMCOM COMPUTE THE COMMAND INDEX 
BCS VALVEC THERE WAS NO COMMAND 
LDAX COMADR SET THE COMMAND VECTOR 
STA JMPVEC 
INX 
LDAX COMADR 
STA JMPVEC +91 
JMI JMPVEC 


VALVEC JMP VALID 


1699: 
1793: 
1719: 
1725: 
1739: 
1749: 
1759: 
176%: 
1778: 
1789: 
1799: 
1899: 
1819: 
1829: 
1839: 
1849: 
1859: 
1869: 
1879: 
1889: 
1899: 
1999: 
1919: 
1929: 
1939: 
1949: 
1955: 
1969: 
1979: 
1989: 
1999: 
2005: 
2019: 
2929: 
20939: 
2949: 
2959: 
2960: 
2079: 
2989: 
2999: 
2129: 
2119: 
2129: 
2139: 
2140: 
2159: 
2169: 
2178: 
2189: 
2199: 
2209: 
2219: 
2229: 
2239: 
2245: 


JCAB 
ZCAA 
ZCAD 
JCB 9 


ZCB 3 
ZCB6 


9CB 9 
9CBC 
ZCBF 


ZCC 2 
ZCC5 


gCC8 
ZCCB 


BCCE 
9CD1 


ZCD4 
9CD7 


9CDA 
BCDD 


ZCED 
JCE 3 


9CE6 


A2 
8E 
29 
4C 


29 
4C 


29 


4C 


23 
4C 


20 
4C 


28 
4C 


29 
4C 


29 
4C 


29 
4C 


29 


gg 
39 
88 
8A 


38 
8A 


87 


8A 


7B 
8A 


87 
8A 


5C 
8A 


38 
8A 


81 
8A 


6E 
8A 


A2 


gF 
ge 


pF 


ZC 


gF 
Cc 


gF 
9C 


gE 
BC 


JF 
BC 


gF 
ge 


ZE 
gC 


gE 
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**KEXECUTE A VIDEO COMMAND*** 


*CARRIAGE RETURN* 

RETURN LDXIM $99 
STX COL COL=g 
JSR ADJUST ADJUST THE CURSOR 
JMP VIDEND 

*LINE FEED* 


FEED JSR CURDN 
JMP VIDEND 


*CLEAR SCREEN & HOME CURSOR* 
CLRHOM JSR HOME 

JSR ERTEOS 

JMP VIDEND 


*CURSOR LEFT* 


LEFT JSR CURLFT 
JMP VIDEND 


*HOME CURSOR* 


HOCU JSR HOME 
JMP VIDEND 


*CURSOR UP* 


UP JSR CURUP 
JMP VIDEND 


*CURSOR DOWN* 


DOWN JSR CURDN 
JMP VIDEND 


*CURSOR RIGHT* 


RIGHT JSR CURRGT 
JMP VIDEND 


*ERASE TO END OF LINE* 


ERLNX JSR ERTEOL 
JMP VIDEND 


*ERASE T9 END OF SCREEN* 


ERSCRX JSR ERTEOS 
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2258: BCEI 4C 8A BC JMP VIDEND 
2269: ì 

2278: 

2288: 

2299: 

238%: *DELETE THE CURRENT LINE* 
2315: 

2329: ZCEC A2 99 DELLIN LDXIM S$J9 

2339: DCEE 8E 39 1A STX COL 

2349: GCF1 29 DB ZD JSR ADJCUR MOVE CURSOR TO COL 4 
2359: ZCF4 29 6E ZE JSR ERTEOL 
2369: ZCF/ 4C 8A BC JMP VIDEND 
2379: 

2389: 

2399: 

2409: 

2419: “FILTER < SPACE* 

2425: 

2439: BCFA AD 2D lA VALID LDA AHOLD 
2448: SCFD C9 29 CMPIM *' 

2450: ZCFF BO 93 BCS TOSCR 
2468: ADH1 4C BA JC JMP VIDEND 
2479: 

2489: “TRANSFER TO SCREEN* 
2499: 

2509: ODO4 29 98 JF TOSCR JSR TVPUT 
251%: 9DH7 4C BA BC JMP VIDEND 
2529: 

2530: 

2549: 

2558: KKASUBROUTINES*** 

2569: 

257%: 

2589: “FIRST LINE UP* 

2599: 

2699: ZDJA 38 FLNUP SEC 

2619: JDIB AD 2E l1A LDA FLN 

2629: ADOE ED 3E l1A SBC CHAPLN FLN=FLN-CHAPLN 
26398: ZD1l 8D 2E 1lA STA FLN 

264ĳ: ZD14 AD 2F 1lA LDA FLN +01 
2659: BD17 E9 99 SBCIM S$99 

2669: BD19 29 97 ANDIM $97 MAX IS SJFF 
2679: GDIB 8D 2F lA STA FLN +91 
2689: ZDIE 69 RTS 

2699: 

2709: “CURRENT LINE UP* 

2718: 

2729: DIF 38 CLNUP SEC 

2738: BD29 AD 39 l1A LDA CLN 

2748: BD23 ED 3E JA SBC CHAPLN 
2758: ZD26 8D 39 lA STA CLN 

2768: 9D29 AD 31 lA LDA CLN +91 
2778: ZD2C EI HJ SBCIM SJ 

2788: ID2E 29 97 ANDIM $97 MAX IS S7FF 
2799: AD39 8D 31 lA STA CLN +91 


2830: 9D33 69 RTS 


2819: 

2829: 

2830: 

2849: AD34 
2850: ZD35 
2860: ZD38 
2879: SD3B 
2889: OD3E 
2899: AD41 
2997: BD43 
2918: AD45 
2929: 9D48 
2939: 

2949: 

2958: 

2969: BD49 
2970: ZD4A 
2989: AD4D 
2998: JD5P 
3005: AD53 
3919: ZD56 
3920: JD58 
3938: ZDS5A 
3049: ZDSD 
3059: 

3969: 

3979: 

3089: ADE 
3099: AD5F 
3198: AD62 
3119: 4D65 
3128: JD68 
3130: JD6B 
3148: ZD6D 
3159: AD6F 
3168: BD72 
3179: 

3189: 

319%: 

3298: JD73 
3215: BD74 
3229: BD77 
3239: 9D7A 
3248: BD7D 
3259: AD89 
3269: AD82 
3278: JD84 
3288: JD87 
3298: 

3389: 

3319: 

3328: JD88 
3338: 2D8B 
3348: ZD8D 
3359: BD99 
3369: 9D92 


18 
AD 
6D 
8D 
AD 
69 
29 


67 


39 
23 
38 
11 


ZA 


lA 
lA 
lA 


lA 


lA 


lA 


ZD 
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*LAST LINE UP* 

LLNUP SEC 
LDA LLN 
SBC CHAPLN 
STA LLN 
LDA LLN 
SBCIM S$99 
ANDIM $97 
STA LLN 
RTS 

“FIRST LINE DOWN* 

FLNDN CLC 
LDA FLN 
ADC CHAPLN 
STA F LN 
LDA F LN 
ADCIM $79 
ANDIM $97 
STA FLN 
RTS 


*CURRENT LINE DOWN* 


CLNDN CLC 
LDA CLN 
ADC CHA PLN 
STA CLN 
LDA CLN 
ADCIM $J9 
ANDIM $97 
STA CLN 
RTS 

“LAST LINE DOWN* 

LLNDN CLC 
LDA LLN 
ADC CHAPLN 
STA LLN 
LDA LLN 
ADCIM $39 
ANDIM $97 
STA LLN 
RTS 


+91 


MAX IS SJ7FF 
+91 


FLN=FLN+CHAPLN 
+91 


MAX IS S7FF 
+41 


CLN=C LN +CHAPLN 
+91 


MAX IS S7FF 
+91 


LLN=LLN+CHAPLN 
+91 


MAX IS SJ7FF 
+41 


“ADJUST THE LINE POINTERS* 


ADJUST LDY 
BPL 
DEC 
BPL 


JSR 


COL 
ADSA 
INLINE 
ADJU 


FLNUP 


IS COLUMN NEGATIVE? 
BRANCH ON NO 

GO BACK ONE LINE 
BRANCH IF WE ARE STILL 
ON THE SCREEN 


‘FIRST LINE UP 


3378: 
3389: 
3399: 
3409: 
3415: 
3429: 
3439: 
3448: 
3459: 
3469: 
3470: 
3489: 
3499: 
3509: 
3519: 
3529: 
3530: 
3549: 
3559: 
3569: 
3579: 
3589: 
3599: 
3609: 
3619: 
3629: 
3639: 
3649: 
3659: 
3669: 
3679: 
3689; 
3699: 
3709: 
3715: 
3720: 
3730: 
3748: 
3750: 
3768: 
3778: 
3789: 
3799: 
3885: 
3819: 
3829: 
38395: 
3849: 
3859: 
3869: 
3879: 
3889: 
3899: 
3989: 
3919: 
3928: 


gD95 
gD98 
ZD IB 
ZDIE 
ZDA Z 


ZDA 3 
ZDA6 
ZDA 9 
ZDAA 
ZDAD 


9DB 9 
9DB 3 
9DB 5 
9DB 7 
ZDBA 
ZDBD 
BDC 9 
9DC 3 
9DC 5 
ADC 8 
ZDCB 
ZDCE 
9DD1 
BDD 2 
9DD5 


9DD8 


9DDB 
ZDDD 
SDE GZ 
ZDE 3 
9DE6 


ZDE8 
ZDE9 
ZDEC 
ZDEF 
ZDF 2 
ZDF 4 


ZDF 7 
9DF8 


ZDF A 
ZDFB 
ZDFE 
ZEI 
ZEG4 
ZET 
JE JA 


ZEDD 


18 
AD 
6D 
8D 
AD 
6D 
8D 


18 


3E 


gg 
39 
38 


3F 
13 
49 
32 
73 
3F 


3E 
36 
36 
93 
37 


EE 


ZE 


ZD 


lA 


2D 
lA 


lA 
9D 


lA 


lA 


lA 


lA 


lA 
lA 
lA 
lA 
lA 
lA 


ADJU 


ADSA 


ADJV 


ADJCUR 


ACURA 


ACURB 


ACURX 
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JSR 
JSR 
JSR 
LDYIM 
STY 


JSR 
LDY 
DEY 
STY 
JMP 


CPY 
BCC 
LDYIM 
STY 
INC 
LDY 
CPY 
BCC 
JSR 
JSR 
JSR 
LDY 
DEY 
STY 
JSR 


JSR 


LDXIM 
STX 
STX 
LDX 
BEQ 


CLC 
LDA 
ADC 
STA 
BCC 
INC 


DEX 
BNE 


CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 


CLC 


FLNCRT 
‘ERAF LN 
LLNUP 
$gg 

INLINE 


CLNUP 
CHAPLN 


COL 
ADJCUR 


CHAPLN 
ADJCUR 
$0g 
COL 
INLINE 
INLINE 
LPSCR 
ADJV 

F LNDN 
FLNCRT 
LLNDN 
LPSCR 


INLINE 
ERALLN 


CLNDN 


S9g 
CURSOR 
CURSOR 
INLINE 
ACURX 


CHAPLN 
CURSOR 
CURSOR 
ACURB 

CURSOR 


ACURA 


F LN 
CURSOR 
CURSOR 
FLN 
CURSOR 
CURSOR 


ADJUST DISPLAY START 
ERASE THE FIRST LINE 
LAST LINE UP 
RESET INLINE 


CURRENT LINE UP 


COL=CHAPLN-1 


IS COL>=CHAPLN? 
BRANCH ON NO 


COL=g 
MOVE DOWN FOR 1 LINE 


ARE WE STILL ON THE SCREEN? 
IS INLINE>=LPSCR? 

FIRST LINE DOWN 

ADJUST DISPLAY START 

LAST LINE DOWN 


INLINE=LPSCR-1 
ERASE LAST LINE 


CURRENT LINE DOWN 


RESET CURSOR 
+81 

IS INLINE=9? 
BRANCH ON YES 


+51 CURSOR=INLINE*CHAPLN 


CURSOR =CURSOR+F LN 
+41 
+01 
+91 
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3939: ZEZE AD 39 1A LDA COL 

3949: ZEll 6D 36 1A ADC CURSOR CURSOR=CURSOR+COL 
3958: ZJE14 8D 36 ÌA STA CURSOR 

3960: JE17 93 93 BCC ACURC 

3979: ZJE19 EE 37 1lA INC CURSOR +91 

3989: 

3998: GEIC A2 ZE ACURC LDXIM CURPOH 

4998: JEIE AD 37 lA LDA CURSOR +41 

4919: JE2l 8E 99 D8 STX AR 

4929: ZE24 8D 91 D8 STA RFILE CURSOR--->CRT CONTROLLER 
4939: ZE27 E8 INX 

4949: ZE28 AD 36 lA LDA CURSOR 

4959: JE2B BE 49 D8 STX AR 

4967: ZE2E 8D Jl D8 STA RFILE 

4979: JE31 69 RTS 

4989: 

40999: *FIRST LINE TO CRT* 

41993: 

4119: JE32 A2 BC FLNCRT LDXIM DSPSTH 

4129: ZE34 AD 2F lA LDA FLN +01 

4138: ZE37 8E 39 D8 STX AR 

4149: ZE3A 8D 91 D8 STA RFILE 

4159: JE3D E8 INX 

4169: ZE3E AD 2E lA LDA FLN 

41793: JE41 8E 49 D8 STX AR 

4189: ZE44 8D Dl D8 STA RF ILE 

4199: ZE47 69 RTS 

4299: 

4219: 

4229: *COMPUTE THE RAM POINTER* 

4230: 

4249: ZE48 18 CRAMPT CLC 

4259: ZE49 AD 34 lA LDA SCRPTR 

4269: ZE4C 6D 3C 1lA ADC RAMBEG RAMPTR=SCRPTR+RAMBEG 
4279: BE4F 85 FC STA RAMPTR 

4289: ZESl AD 35 lA LDA SCRPTR +91 

4299: JES54 6D 3D 1lA ADC RAMBEG +91 

4389: DES57 29 D7 ANDIM SD7 MAX IS SD7FF 
4319: ZES9 85 FD STA RAMPTR +91 

4329: JESB 18 CLC 

4338: ZESC A5 FC LDA RAMPTR RAMPTR=RAMBEG+SCRPTR+TEMCOL 
43498: ZESE 6D 3B lA ADC TEMCOL 

4359: ZE6L 85 FC STA RAMPTR 

4369: JE63 99 98 BCC CRAMP 

4379: ZE65 E6 FD INC RAMPTR +41 

4389: ZE67 A5 FD LDA RAMPTR +91 

4399: ZE69 29 D7 ANDIM S$D7 MAX IS SD7FF 
44998: JE6B 85 FD STA RAMPTR +91 

4415: 

4420: ZE6D 69 CRAMP RTS 

4439: 

4445: *ERASE TO END OF LINE* 

4459: 

4469: ZEGE AE 38 lA ERTEOL LDX CLN 

4478: ZE7l AC 31 1A LDY CLN +91 


4489: JE74 8E 34 lA STX SCRPTR SCRPTR=CLN 


ZE 77 
ZE A 
ZE 7D 
ZE89 
gE82 


JE84 


ZE87 
JE88 
ZE8A 
ZE8D 


ZES8F 


ZE 91 
ZE93 
ZE95 
ZE97 


ZE99 
ZE IC 
JEF 
JEA1 


JEA2 
ZEAS5 
ZEAG 
ZEA9 
ZEAB 


ZEAE 
ZEAF 
ZEB 2 
ZEB 5 
ZEB8 
ZEBB 
ZEBD 
ZEBF 
ZEC 2 
ZEC5 
ZEC7 
JECA 
ZECD 


ZECF 


ZED 2 
ZEDS5 


ZED 7 
ZEDA 


ZEDC 


29 


8A 
91 
EE 
E6 


E6 
A5 
29 
85 
AD 


99 
63 


AD 


99 


lA 


lA 


ZE 


lA 


lA 
lA 


lA 
lA 
ZE 
lA 
lA 


lA 
lA 


lA 
lA 
lA 
lA 


lA 
ZE 


lA 
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STY 
LDY 
STY 
LDXIM 
LDYIM 


EREOL JSR 


EROLX TXA 
STAIY 
INC 
INC 
BNE 
INC 
LDA 
ANDIM 
STA 


EROXX LDA 
CMP 
BCC 
RTS 


SCRPTR 
COL 
TEMCOL 


Sg 


CRAMPT 


RAMPTR 
TEMCOL 
RAMPTR 
EROXX 
RAMPTR 
RAMPTR 
SD 7 

RAMPTR 


TEMCOL 
CHAPLN 
EROLX 


+91 
GET THE CURR. COLUMN 
TEMCOL=COL 
SPACE TO X 
INDEX=9 


RAMPTR=RAMBEG+SCRPTR+TEMCOL 
SPACE--->RAM 
TEMCOL=TEMCOL+1 

+41 RAMPTR=RAMPTR+1I 

+71 

MAX IS SD7FF 

+01 

IS TEMCOL>=CHAPLN? 


BRANCH ON NO 


*ERASE TO END OF SCREEN* 


ERTEOS LDX 
INX 
CPX 
BEQ 
JSR 


EREOS CLC 
LDA 
ADC 
STA 
LDA 
ADC IM 
ANDIM 
STA 
CMP 
BNE 
LDA 
CMP 
BEO 


EEOL STY 
JSR 
BCS 


EEOLB STY 
BEO 


INLINE 


LPSCR 
ERTEOL 
ERTEOL 


SCRPTR 
CHAPLN 
SCRPTR 
SCRPTR 
$2g 
$97 
SCRPTR 
LLN 
EEOL 
SCRPTR 
LLN 
EEOLB 


TEMCOL 
EREOL 
EREOS 


TEMCOL 
EREOL 


ARE WE ALREADY IN THE 
LAST LINE? 


IF YES DO ONLY "EOL" 
DO "EOL" FOR THIS LINE 


SCRPTR=SCRPTR+CHAPLN 
OR SCREEN POINTER DOWN 
+91 

MAX IS SJ7FF 


+91 
+91 IS SCRPTR=LLN? 


ERASE LAST LINE AND STOP 


TEMCOL=9 


TEMCOL=g 


*ERASE THE FIRST LINE* 


ERAFLN LDYIM 


$99 


5959: 
5969: 
5978: 
5989: 
5997: 
5199: 
5119: 
5128: 
5139: 
5149: 
5159: 
5169: 
517%: 
5189: 
5195: 
5200: 
5219: 
5225: 
5239: 
5248: 
5259: 
5269: 
5278: 
5285: 
5299: 
5309: 
5315: 
5325: 
5339: 
5340: 
5359: 
5369: 
537%: 
5389: 
5399: 
5409: 
5418: 
5429: 
5439: 
5449: 
5450: 
5469: 
5479: 
5489: 
549p: 
558%: 
5518: 
5520: 
5539: 
5548: 
5558: 
5565: 
5575: 
5589: 
5599: 
569: 


JEDE 
ZEE 1 
ZEE 3 
ZEE6 
ZEE9 
ZEEC 
ZEEF 


JEF 2 
ZEF 4 
JEF 7 
JEF 9 
ZEFC 
ZEFF 
gF 92 
JF 25 


gF 98 
gFg9 
gF9C 
gr QF 
9F11 
gF14 
917 
gF 19 
JF 1B 
JF 1C 
ZF IF 
gF 21 
ZF 23 
JF 25 
gE 27 
gr 29 
JF 2B 


gr 2D 
gF 39 
gF 32 
gr 35 


gF 38 
gF 3B 
JF 3E 
gF41 
gr44 
gr 46 
gr49 
gF 4C 
ZF 4F 
gF52 


EE 
29 
AC 
CC 
99 
29 
29 
29 
29 
AC 


gg 
3B 
29 


34 
33 


84 


lA 
lA 
JA 


lA 
ZE 


lA 
lA 


lA 
lA 


lA 


lA 


lA 
9D 


*ERASE 


ERALLN 


*PUT A 


TVPUT 


TPX 
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STY, 
LDXIM 
LDA 
STA 
LDA 
STA 
JMP 


TEMCOL 
1 

FLN 
SCRPTR 
FLN 
SCRPTR 
EREOL 


SCRPTR=F LN 

+71 

+51 

NOW ERASE THE FIRST LINE 


THE LAST LINE* 


LDYIM 
STY 
LDXIM 
LDA 
STA 
LDA 
STA 
JMP 


CHARAC 


CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDYIM 
CLC 
LDA 
ADC 
STA 


LDA 
STAIY 
INC 
JMP 


*CURSOR DOWN* 


CURDN 


INC 
JSR 
LDY 
CPY 
BCC 
JSR 
JSR 
JSR 
JSR 
LDY 


sg 
TEMCOL 
' 

LLN 
SCRPTR 
LLN 
SCRPTR 
EREOL 


TER ON 


C LN 
RAMBEG 
RAMPTR 
CLN 
RAMBEG 
RAMPTR 
sg 


COL 
RAMPTR 
RAMPTR 
TPX 
RAMPTR 
RAMPTR 
SD 7 
RAMPTR 


AHOLD 
RAMPTR 
COL 
ADJUST 


INLINE 
CLNDN 
INLINE 
LPSCR 
CURDNX 
FLNDN 
FLNCRT 
LLNDN 
ERALLN 
LPSCR 


TEMCOL=9 


SCRPTR=LLN 

+01 

+91 

NOW ERASE THE LAST LINE 


THE SCREEN* 


RAMPTR=CLN+RAMBEG 
+01 
+91 
+01 


RAMPTR=CLN+RAMBEG+COL 


+91 
+31 
MAX IS SDJFF 
+91 


COL=COL+G1 


INLINE=INLINE+] 
CUREENT LINE DOWN 


IS INLINE>=LPSCR? 
BRANCH ON NO 
FIRST LINE DOWN 
FIRST LINE--->CRT 
LAST LINE DOWN 
ERASE LAST LINE 


5615: 
5628: 
5635: 
5648: 
5658: 
5669: 
5678: 
5689: 
5699: 
5798: 
5719: 
5729: 
5739: 
5740: 
5758: 
5769: 
5770: 
5783: 
5799: 
5809: 
5819: 
5829: 
5839: 
5849: 
585g: 
5867: 
5878: 
5889: 
5899: 
5959: 
5919: 
5929: 
5939: 
5945: 
5955: 
5969: 
5979: 
5985: 
5997: 
6995: 
6919: 
6320: 
6939: 
6349: 
6459: 
6969: 
6879: 
6589: 
6499: 
6199: 
6119: 
6129: 
6139: 
6149: 
6159: 
6169: 


gF55 
gF 56 


gF 59 


gF SC 
gr SF 
gF62 
gF65 
gE 67 
gF6A 
gF 6D 
gr 79 
gE 73 
gr 75 


gF 78 


9F7B 
gF 7E 


gr 81 
gr84 


gr 87 
gr89 
gF8C 
gr8F 
gF92 
gF95 
gF 98 
gF 9B 


gr 9E 
JAG 
JFA3 
JFA6 
JFA9 
9FAC 
JFAF 
JFB 2 
gFB5 
gFB8 
SFBB 


9FBC 


88 
8C 


4C 


CE 
4C 


EE 
4C 


A2 
8E 
8E 
AE 
8E 
AE 
8E 
4C 


A9 
8D 
8D 
8D 
8D 
8D 
8D 
8D 
8D 


CA 


18 


38 


DB 


39 
88 


39 
88 


gg 


39 
2E 
39 
2F 
31 
88 


lA 


9D 


lA 


lA 


gD 


gD 
gE 


lA 


ZD 


lA 
gD 


lA 
gD 


lA 
lA 
lA 
lA 
lA 
JA 
9D 
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DEY 
STY ° INLINE 
CURDNX JMP ADJCUR 


*CURSOR UP* 


CURUP DEC INLINE 
JSR CLNUP 
LDY INLINE 
BPL CURUPX 
JSR FLNUP 
JSR FLNCRT 
JSR LLNUP 
JSR ERAF LN 
LDYIM $99 
STY INLINE 

CURUPX JMP ADJCUR 


*CURSOR LEFT* 


COL 
ADJUST 


CURLFT DEC 
JMP 


*CURSOR RIGHT* 


COL 
ADJUST 


CURRGT INC 
JMP 


*HOME CURSOR* 


HOME LDXIM $99 
STX INLINE 
STX COL 
LDX FLN 
STX CLN 
LDX FLN 
STX CLN 
JMP ADJUST 


INLINE=LPSCR-1 


ADJUST THE CURSOR AND RETURN 


INLINE=INLINE-1 
CURRENT LINE UP 

IS INLINE=NEGATIVE? 
BRANCH ON NO 

FIRST LINE UP 
FLN--->CRT 

LAST LINE UP 

ERASE THE FIRST LINE 


INLINE=g 


ADJUST THE CURSOR AND RETURN 


COL=COL-1 
ADJUST THE CURSOR AND RETURN 


COL=COL+1 
ADJUST THE CURSOR AND RETURN 


INLINE=g 
COL=g 


CLN=F LN 

+91 

+91 

ADJUST THE CURSOR AND RETURN 


*MASTER RESET OF THE MEMORY MAPPED VDU* 


RESET LDAIM $99 
STA FLN 
STA FLN 
STA C LN 
STA C LN 
STA LLN 
STA LLN 
STA COL 
STA INLINE 
LDX LPSCR 
DEX 

RSA CLC 


FLN=$0399 

+01 

CLN=$ 9909 

+91 

RESET LAST LINE 
+91 

COL=3 

INLINE=g 


X=LPSCR-1 


6179: 
6189: 
6199: 
6299: 
6215: 
6229: 
6230: 
6249: 
6259: 
6269: 
6279: 
6289: 
6299: 
6309: 
6319: 
6325: 
6330: 
6349: 
6359: 
6368: 
6379: 
6389: 
6399: 
6490: 
6419: 
9019: 
9029: 
9038: 
9349: 
9959: 
9369: 
9379: 
9589: 
9998: 
9199: 
9119: 
8125: 
9139: 
g149: 
9150: 
g16g: 
0179: 
9189: 
9198: 
8299: 
8219: 
8229: 
8239: 
248: 
9259: 
9269: 
9279: 
9289: 
9299: 
4389: 
9318: 


ZFBD 
ZFC 
gFC3 
gFC6 
gFC8 


ZFCB 
gFCC 
JFCE 
9FD1 
gFD4 
gFD7 


JF DA 


JF DC 
ZFDF 
gFE 2 
gFES5 
JFE6 
gFE8 
JFEA 


l4F 4 


14F 4 
14F 6 


14F8 
14FB 
14FE 
1599 
1593 
1596 
1598 
1599 


155B 
159C 
159D 
159E 
159F 
1511 


1513 
1515 


3E 
32 
32 
93 
33 


EE 
87 


A2 
32 


99 
0) 
91 


19 
F2 


16 
E5 


99 
3A 


lA 
lA 
1A 


lA 


ZF 


ZE 
ZE 


D8 


D8 


15 
lA 


15 
lA 


lA 


PAGE 12 


LDA 
ADC 
STA 
BCC 
INC 


RSB DEX 
BNE 
JSR 
JSR 
JSR 
JMP 


FLNCRT 


*INITIALIZE THE CRT 


CRTINT LDXIM 


CIA STX 
LDAX 
STA 
INX 
CPXIM 
BNE 
RTS 


$0g 


AR 
TABLE 
RFILE 


s1g 
CIA 


LLN= (LPSCR-1 ) *CHAPLN 


+91 


SET THE CRT TIMING REGISTERS 
HOME CURSOR 

CLEAR THE SCREEN 

FLN--->CRT AND RETURN 


CONTROLLER* 


SET THE FILE INDEX -‚ 
VALUE--->FILE 


SET ONLY THE TIMING REGISTERS 


am nn nn en ee ne ee ee 
menner TnsrresereTTTTeETEeENEeSTEESTEESESSsE 


*COMPUTE THE 


COMCOM LDXIM 
LDYIM 


COMCOA LDAX 
CMP 
BNE 
LDAY 
CMP 
BNE 
CLC 
BCC 


COMCOB INX 
INX 
INY 
INY 
CPXIM 
BCC 


COMCOC LDAIM 
STA 


COMMAND ADDRESS INDEX* 


$09 
$01 


COM TAB 
ESCFLG 
COMCOB 
COM TAB 
AHOLD 
COMCOB 


COMCOC 


$16 
COMC OA 


$99 
ESCFLG 


FIND THE COMMAND 


C=B --> X=ADDRESS INDEX 


AND RESET THE ESC-FLAG 


C=l —-> NO COMMAND 


RESET THE ESCAPE FLAG 


8329: 
9330: 
9348: 
9359: 
9369: 
9378: 
9389: 
9399: 
499: 
g415: 
9428: 
g439: 
g449: 
,459: 
g468: 
9478: 
489: 
g497: 
9509: 
3519: 
9529: 
9530: 
9549: 
g55g: 
g56g: 
9579: 
9589: 
9597: 
gegg: 
geld: 
ge2d: 
g63g: 
g64g: 
g65g: 
9669: 
9678: 
g68g: 
g69: 
8708: 
9718: 
9729: 
9738: 
745: 
8759: 
9768: 
9778: 
9788: 
9795: 
5809: 
9818: 
g82d: 
9839: 
849: 
g85g: 
9869: 
0878: 


1518 


1519 
151A 
151B 
151C 
151D 
151E 
151F 
1529 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
152A 
152B 
152C 


152D 
152E 
152F 
1539 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 


69 
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RTS 


*COMMAND TABLE * 


COM TAB 


COTABA 


UO 


(CCC 


* COMMAND 


COMADR 


Sgg 
SOD 
sgg 
SA 
Sgg 
$g8 


SFF 


ADDRESS 


SA8 
$9C 
$B3 
SOC 
SC2 
SBC 
$SB9 
SJC 
SB9 
SJC 
SC8 
SOC 
SE6 
SBC 
SCE 


<CRÒ 

<LF > 

<BS>,<CTL-H> BACK SPACE 
KESC><1> CLEAR SCREEN & HOME 
<ESC><2> CLEAR SCREEN & HOME 
KESC><3> HOME CURSOR 
<ESC><4> ERASE TO EOS 
<ESC><5> CURSOR UP 

<ESC><6> CURSOR DOWN 


<ESC><8> ERASE TO EOL 


<CTL-P> CURSOR RIGHT 


TABLE * 


CR 


LF 


CURSOR LEFT 


CLEAR SCREEN & HOME 


CLEAR SCREEN & HOME 


HOME CURSOR 


ERASE TO EOS 


CURSOR UP 


9889: 
g89g: 
9999: 
g919: 
9929: 
9939: 
g94g: 
9955: 
9968: 
9978: 
9989: 
g99g: 
1993: 
1919: 
1929: 
1939: 
1949: 
1959: 
1969: 
1979: 
1989: 
1499: 
11995: 
1119: 
1129: 
1139: 
1149: 
1159: 
1169: 
1178: 
1189: 
1199: 
1299: 
1218: 
1229: 
1239: 
1249: 
1259: 
1269: 
1279: 
1289: 
1299: 
1399: 
1319: 
1329: 
1330: 
1349: 
1359: 
1369: 
1379: 
1389: 
1399: 
1499: 
1419: 
1429: 
1438: 


1548 
1549 
154A 
154B 
154C 


154D 
154E 
154F 
1559 
1551 
1552 
1953 
1554 
1555 
1556 
1557 
1558 


1559 
155C 


155F 
1562 
1564 
1566 
1569 
156B 


156D 
1579 


1573 
1576 
1578 
157A 
157D 
157F 


JC 
D4 
je 
Eg 
ZC 


28 
4C 


AD 
29 
Fg 
AD 
29 
Dg 


94 
SF 


gg 
91 
2D 
gg 
g2 
26 


1,5 
15 


18 


18 


lA 
18 


18 


18 
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‚ $9C 
SD 4 
SJC 
SE9 
S9C 


CURSOR DOWN 


ERASE TO EOL 


*NORMAL VIDEO COMMANDS * 


SDA 
SBC 
SFF 
SFF 
SFF 
SFF 
SFF 
SFF 
SFF 
SFF 
SFF 
SFF 


WOE tt tr 


*CENTRONICS OUTPUT * 


CURSOR RIGHT 


CENOUT JSR INICEN INIT. PRINTER 1/0 
JMP CENTRO AND OUTPUT THE CHARACTER 


> VIA DEFINITIONS: 
> PA7...PAG 


DATA OUTPUT 


> CAl = /ACKN INPUT 
> CA2 = /STB OUTPUT 
> PB] = PE INPUT 

> PBZ = SEL INPUT 


CENTRO LDA VAPBD 
ANDIM S$91 
BEQ CTROB 
LDA VAPBD 
ANDIM $72 
BNE CTROB 


CTROA LDA AHOLD 
STA VAPAD 


WAIT LDA VAPBD 
ANDIM $91 
BEO CTROB 
LDA VAPBD 
ANDIM S$2 
BNE CTROB 


IS THE PRINTER SELECTED? 
PBJ = SEL INPUT 


PAPER EMPTY? 


PBl = PE INPUT 


OUTPUT THE CHARACTER AND 


IS THE PRINTER SELECTED 


PAPER EMPTY? 


PAGE 15 


1449: 1581 AD gD 18 LDA _ VAIFR SAMPLE CAl FLAG 

1459: 1584 29 92 ANDIM $02 

1469: 1586 F9 EB BEO WAIT WAIT FOR ACKNOWLEDGE 

1470: 1588 AD 4D 18 LDA VAIFR 

1480: 158B 99 93 ORAIM S$93 

1499: 158D 8D AD 18 STA VAIFR RESET CAl, CA2 FLAGS 

1548: 1599 8D 2D 18 STA VAIFR 

1518: 

1529: 1593 69 CTROB RTS 

1539: 

1548: 

1559: *INITIALZE CENTRONICS®* 

1569: 

1578: 1594 A9 FF INICEN LDAIM SFF PAZ...PA7 = OUTPUT 

1585: 1596 8D 43 18 STA VAPADD 

1599: 1599 A9 ZA LDAIM S$JA CA2 = WRITE HANDSHAKE 
PULSE OUTPUT 

1698: 159B 8D OC 18 STA VAPCR CAl = NEG. EDGE SENSITIVE 

1619: 159E AD 02 18 LDA VAPBDD 

1629: 15Al 29 FC ANDIM SFC PAZ,PAl = INPUT 

1639: 15A3 8D 92 18 STA VAPBDD 

1649: 15A6 EA NOP 

1659: 15A7 EA NOP 

1669: 15A8 EA NOP 

1679: 15A9 EA NOP 

1687: 15AA EA NOP 

1699: 15AB 69 RTS 

1759: 

1719: *MOVE THE CRT FILE FROM ROM TO RAM* 

1729: 

1739: 15AC A9 49 MOVCRT LDAIM Sg REFRESH RAM STARTS AT SD99g 

1749: 15AE A2 Dg LDXIM $D9 

1753: 15B9 8D 3C lA STA RAMBEG 

1769: 15B3 8E 3D lA STX RAMBEG +91 

1775: 15B6 A9 gg LDAIM S$99 

1789: 15B8 A8 TAY 

1799: 15B9 AE 49 lA LDX FORMAT GET THE CURR‚ FORMAT 

1899: 15BC Fg 96 BEQ MCRTB 

1819: 

1829: 15BE 18 MCRTA CLC 

1839: 15BF 69 12 ADCIM S12 COMPUTE THE INDEX 

1849: 15Cl CA DEX 

1858: 15C2 D9 FA BNE MCRTA 

1869: 

1878: 15C4 AA MCRTB TAX 

18898: 

1899: 15C5 BD EZ 15 MCRTC LDAX CRTINA 

1999: 15C8 99 42 lA STAY TABLE MOVE THE TABLE 

1914: 1S5CB E8 INX 

1929: 15CC C8 INY 

1939: 15CD CJ 12 CPYIM S$12 

1949: 15CF Dg F4 BNE MCRTC 

1959: 15D1l 88 DEY 

1969: 15D2 B9 42 lA LDAY TABLE SET SCREEN PARAMETERS 

1979: 15D5 8D 3F lA STA LPSCR 

1988: 15D8 88 DEY 


1999: 1S5D9 BI 42 lA LDAY TABLE 
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2990: 15DC 8D 3E 1lA STA . CHAPLN 
2019: 1SDF 69 RTS 

2029: 

2039: 

2040: 

2058: *CRT TIMING TABLES* 
2069: 

2079: — 85*24 -— 

29898: 

2999: 15EZ 89 CRTINA 
2190: 15E1l 50 

2119: 15E2 69 

2129: 15E3 78 

2139: 15E4 22 

2149: 15E5 99 

2159: 15E6 18 

2168: 15E7 1C 

2179: 15E8 99 

2189: 1S5E9 48 

2199: 15EA 09 

2290: 1SEB 99 

2219: 15EC 99 


$S88 HORIZONTAL TOTAL-l = 129-l CHAR. 

$58 HORIZONTAL DISPLAYED = 89 CHAR. 

S68 HORIZ. SYNC. POSITION = 96 CHAR. 

$98 VERT./HORIZ. SYNC WIDTH = 16/8 

$22 VERTICAL TOTAL-l = 34 CHAR. LINES 
$73 VERT. TOTAL ADJ. = 9*64 MICRO SEC. 
S18 VERTICAL DISPLAYED = 24 LINES 

SÌC VERT. SYNC. POSITION = 29 CHAR, LINFS 
$72 MODE CONTROL u 
$78 SCAN LINES-l = 9-1 

$S73 CURSOR START 

$99 CURSOR END 

S73 DISPLAY START (NOT NEEDED) 


2220: 15ED 99 Sg 
2230: 15EE 99 $57 CURSOR POSITION (NOT NEEDED) 
2249: 15EF 99 s59 


2259: 15F9 59 
2269: 15Fl 18 


$59 CHARACTERS/LINE 
$18 LINES/SCREEN 


TD | 


2278: 

2288: 

2299: — 89*25 — 
2309: 

2319: 15F2 89 = $89 
2320: 15F3 59 = S$5g 
2330: 15F4 69 = $69 
2349: 15F5 48 = $78 
2350: 15F6 22 = S$22 
2369: 15F7 49 = S$59 en 
2379: 1SF8 19 = $19 
2388: 15F9 1C = S$IÌC 
2399: 15FA 95 = S$99 
2499: 1SFB 48 = $98 
2419: 1SFC 09 = $09 
2420: 15FD 49 = $99 
2430: 15FE 49 = S$O7 
2449: 15FF 99 = S$99 
2459: 1698 99 = $09 
2468: 1691 99 = S$99 
2470: 1632 59 = $59 
2489: 1693 19 = $19 
2499: 

2598: — 64*16 -— 
2519: 

2529: 1694 64 = $64 
2539: 1645 49 = S$49 
25498: 1606 49 = $49 


2559: 1697 95 $g5 
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2568: 1698 16 = $16 
2579: 1699 ZE = SJE 
2589: 162A 19 = $19 
2599: 169B 12 = S12 
2698: 169C 39 = $gg 
2619: 168D JC = $9C 
2620: 169E 29 = Sgg 
2639: 164F J9 = sg9 
2649: 1619 99 = SN) 
2658: 1611 94 = sgg 
2668: 1612 99 = Sgg 
2679: 1613 99 = Sg 
2689: 1614 49 = S4g 
2699: 1615 19 = $19 
2708: 

2715: — 64*24 -— 

2729: 

2739: 1616 64 = S64 
2749: 1617 49 = S4g 
2758: 1618 52 = $52 
2769: 1619 95 = $g5 
2778: 16lA 22 = S22 
2789: 161B 99 = Sgg 
2798: 161C 18 = S18 
2899: 161D 1C = SIC 
2819: 161E 99 = $g9 
2829: 161F 98 = $78 
2839: 1629 J9 = $5g 
2849: 1621 g9 = sg9 
285%: 1622 79 = Sgg 
2869: 1623 09 = $gg 
2878: 1624 09 = $99 
2889: 1625 99 = sgg 
2899: 1626 49 = $4g 
2999: 1627 18 = $18 
2919: 

2929: — 9P*22 — 

2939: 

2940: 1628 87 = $87 
2958: 1629 SA = $5A 
2969: 162A 6A = $6A 
2979: 162B 48 = Sg8 
2988: 162C 22 = $22 
2993: 162D 99 = sg 
390%: 162E 16 = S16 
3018: 162F 1C = S1C 
3820: 1639 99 = $39 
3039: 1631 48 = Sg8 
3448: 1632 99 = sg 
3850: 1633 29 = $g9 
3969: 1634 29 = s9g 
3979: 1635 99 = $gg 
3989: 1636 39 = $3g 
3999: 1637 43 = sgg 
3199: 1638 SA = S5A 


3119: 1639 16 $16 
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3129: 

3139: — 48*12 — 

3149: 

3158: 163A 46 = Sâ6 
3169: 163B 39 = S3g 
3179: 163C 3A = $3A 
3189: 163D 95 = $Sg5 
3199: 163E 16 = S16 
3299: 163F ZE = SBE 
3213: 1649 BC = SBC 
3223: 1641 12 = s1l2 
3239: 1642 99 = S3g 
3248: 1643 BC = SJC 
3258: 1644 99 = S9g 
3269: 1645 99 = sg9 
3279: 1646 99 = Sg 
3289: 1647 99 = el ) 
3290: 1648 94 = Sgg 
3309: 1649 90 = sgg 
3319: 164A 39 = $30 
3320: 164B BC = SJC 
3330: 

3349: — 24*24 -— 

3359: 

3369: 164C 38 = $38 
3370: 164D 18 = s18 
3389: 164E 26 = $26 
3399: 164F 95 = $g5 
3498: 1659 22 = S22 
3419: 1651 99 = $93 
3358: 

3369: 164C 38 = $38 
3379: 164D 18 = s18 
3389: 164E 26 = $26 
3399: 164F 95 = $g5 
3499: 1659 22 = $22 
3418: 1651 99 = $g3 
3358: 

3369: 164C 38 = $38 
3379: 164D 18 = s18 
3389: 164E 26 = $26 
3399: 164F 95 = $g5 
3499: 1659 22 = $22 
3418: 1651 99 = $g3 
3358: 

3368: 164C 38 = $38 
3378: 164D 18 = s18 
3389: 164E 26 = $26 
3399: 164F 95 = $g5 
3499: 1659 22 = $22 
3418: 1651 99 = $Sg3 
3358: 

3368: 164C 38 = $38 
3378: 164D 18 = s18 
3389: 164E 26 = $26 
3399: 164F 95 = sg5 
34939: 1659 22 = $22 
3418: 1651 93 = Sg 


3689: 
3699: 
3708: 
3719: 
3729: 
3730: 
3749: 
3759: 
3768: 
377%: 
3789: 
3799: 
38905: 
3819: 
3829: 
3839: 
3849: 
3859: 
3869: 
3879: 
3889: 
3899: 
3999: 
3919: 
3929: 
3939: 
3949: 
3950: 
3969: 
3979: 
3989: 
3999: 
4099: 
4918: 
4929: 
4939: 
4940: 
4959: 
4968: 
4975: 
4989: 
4098: 
4190: 


4119: 
4129: 
4139: 
4149: 
4159: 
4169: 
4179: 
4188: 
4199: 
4290: 
4210: 
4229: 
4239: 


1669 
166A 
166B 
166C 
166D 
166E 
166F 


1679 
1679 


1679 
1673 
1675 
1678 
167B 
167E 


1681 
1684 
1687 


168A 
168D 


1698 
1693 
1696 
1699 
169B 
169D 
16AG 
16A3 
16A6 
16A9 
16AB 


16AE 
16B1 
16B 3 


16B6 
16B9 
16BC 
16BE 
16C Hd 
16C3 
16C6 
16C9 


29 


8D 
8D 


22 
29 


4C 


8E 
8D 


8D 


8C 
A5 
A6 
8D 
8E 
29 
AD 
Fg 
29 


AD 
29 


AD 
AE 
85 
86 
AD 
AE 


2C 


14 
lA 
lA 
15 
gF 
12 


16 


lA 
lA 


lA 
15 


lA 
lA 


lA 
lA 
lA 
lA 
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= Sg 
= Sgg 
= sg 
ee $gg 
= s9g 
= sS5g 
= s18 
RESTTY + $14BC 
RECCHA * S12AE 
CHE JSR RESTTY 
LDAIM $99 
STA FORMAT 87*24 DISPLAY 
STA DUPLEX DON'T ECHO TO SCREEN 
JSR MOVCRT 
JSR RESET 
CHECKA JSR RECCHA 
JSR VIDEO 
JMP CHECKA 
*NEW PRCHA ROUTINE* 
NPRCHA STX SIA69 SAVE X 
STA SIA62 SAVE THE CHAR. 
“OUTPUT TO ALL DEVICES* 
OUTALL STA AHOLD SAVE REGISTERS 
STX XHOLD 
STY YHOLD 
LDA RAMPTR SWAP SCREEN POINTER 
LDX RAMPTR +91 
STA PZPTR 
STX PZPTR +01 
JSR VIDEO OUTPUT TO SCREEN 
LDA PRIFLG 
BEQ OUTALA IS THE PRINTER FLAG RESET? 
JSR $133A OUTPUT THE CHAR. ON THE SERIAL 
PORT 
OUTALA LDA CENFLG IS THE CENTRONICS PORT SELRCTED 
BEQ OUTALB 
JSR CENOUT OUTPUT THE CHAR. TO CENTRONICS 
OUTALB LDA PZPTR SWAP PAGE ZERO BYTES 
LDX PZPTR +91 
STA RAMPTR 
STX RAMPTR +71 
LDA AHOLD RESTORE THE REGISTERS 
LDX XHOLD 
LDY YHOLD 
BIT SIA83 BREAK TEST 


4249: 
4250: 
4260: 
4270: 
4289: 
4299: 
4399: 
4319: 
4320: 
4339: 
4349: 
4359: 
4369: 
4379: 
4389: 
4399: 
4409: 
4419: 
4420: 
4439: 
4449: 
4459: 
4469: 
4470: 
4489: 
4499: 
4599: 
4519: 
4520: 
4539: 
4549: 
4559: 
4569: 
4579: 
4589: 
4599: 
4690: 
4619: 
4629: 
4639: 
4649: 


4659: 


4669: 
4679: 
4689: 
4699; 
-T 


16CC 
16CE 


16CF 
16D2 
16D4 
16D6 
16D7 


16DA 
16DD 
16DF 
16E 2 
16E5 
16E 7 
16E9 
16EC 
16EF 
16F 2 
16F5 


16F8 


16FB 
16FE 
1799 
1793 


1796 
1799 
179C 


19 
69 


2C 
19 
A2 
9A 
6C 


8D 


AD 
Fo 


29 
AD 


AE 
69 


91 


89 


FF 


7C 


2D 


41 


2D 
8A 


2D 
61 


lA 


lA 


lA 


lA 
lA 


lA 
lA 
15 
gF 
19 


lA 


lA 


lA 
16 


lA 
lA 


PAGE 29 


BPL 
RTS 


„BRKTST 


*EXIT FOR BREAK KEY* 


BRKTST 


BIT 
BPL 
LDXIM 
TXS 
JMI 


S1A89 
BRKTST 
SFF 


S1A7C 


WAIT UNTIL KEY IS RELEASED 


RESET THE STACK POINTER 


*NEW INITIALIZE PROGRAM* 


NEWINI 


STA 
LDAIM 
STA 
STA 
LDAIM 
LDXIM 
STA 
STX 
JSR 
JSR 
JMP 


SlA82 
$gg 
CENFLG 
PRIFLG 
sgg 
$31 
FORMAT 
DUPLEX 
MOVCRT 
RESET 
S1997 


“GENERAL INPUT WITH 


INALL 


INALLX 


STA 


LDA 
BEO 
LDA 
JSR 


LDA 
LDX 
RTS 


AHOLD 


DUPLEX 
INALLX 
AHOLD 

NPRCHA 


AHOLD 
S1A61 


RESET THE CENTRONICS FLAG 
RESET THE SERIAL PRINTER FLAG 
THE USER CAN CHANGE IT TO 8...7 
SET THE DUPLEX FLAG FOR ECHO 
WE DO A 89*24 VIDEO SCAN 


MOVE THE CRT TABLE TO RAM 


RESET THE CRT CONTROLLER 
GOTO OLD RESET PROGRAM 


ECHO TO THE OUTPUT DEVICES* 


ECHO/NO ECHO es 


GET THE CHAR, AGAIN 
ECHO THE CHARACTER 


GET THE CHAR, AGAIN 
RESTORE X 


Pl 


SYMBOL 
ACURA 
ADJCUR 
ADSA 
CENF LG 
CHECK 
CLNDN 
COL 
COMCOC 
CRAMP 
CTROA 
CUREND 
CURRGT 
CURUPX 
DSPSTL 
EEOLB 
EREOS 
ERSCRX 
ESC 
FLNUP 
HOME 
INALL 
JMPVEC 
LLNDN 
MCRTA 
MOVCRT 
OUTALB 
RAMBEG 
RESTTY 
RSA 
SPACE 
TOPPIA 
TVPUT 
VAACR 
VALVEC 
VAPBD 
VATACH 
VATBCH 
VHS YWI 
VTOTAJ 


TABLE 3499 37A8 


ZDE8 
ZDDB 
SDB 9 
lA 56 
9C9g 
ZD 5E 
lA39 
1513 
ZE6D 
156D 
Z30B 
gF81 
gr 78 
3D 
ZED7 
ZEAE 
ZCE6 
991B 
ZD ZA 
gr87 
16F8 
lA54 
9D 73 
15BE 
15AC 
16B6 
lA3C 
14BC 
ZFBC 
9929 
lA59 
gr g8 
189B 
ZCAS5 
1809 
1895 
1899 
9093 
9775 


ACURB 
ADJU 
AHOLD 
CENOUT 
CHECKA 
CLNUP 
COMADR 
COMC OM 
CRAMPT 
CTROB 
CURLFT 
CURSOR 
DELLIN 
DUMMY 
ERAF LN 
ERLNX 
ERTEOL 
FEED 

F LN 
HORDIS 
INALLX 
LEFT 
LLNUP 
MCRTB 
NEWINI 
OUTALL 
RAMPTR 
RETURN 
RSB 
SPAD 
TOSCR 
UP 
VAIER 
VAPAD 
VAPBDD 
VATACL 
VATBCL 
VIDEND 
WAIT 


ZDF 7 
ZDA 3 
lA 2D 
1559 
1681 
ZDF 
1539 
l4F 4 
ZE 48 
1593 
gF 7B 
lA36 
ZCEC 
ZJ1F 
ZEDC 
JCE B 
ZEGE 
ICB 3 
lA2E 
9001 
1796 
9CC2 
ZD 34 
15C4 
16DA 
1699 
SFC 
JCA8 
gFCB 
lA89 
9DZ4 
ZCCE 
189E 
1891 
1892 
1894 
1898 
ZC8A 
1573 


ACURC 
ADJUST 
AR 
CENTRO 
CHÈ 
CLN 
COMCOA 
COMTAB 
CRTINA 
CURDN 
CURPOH 
CURSTA 
DOWN 
DUPLEX 
ERALLN 
EROLX 
ERTEOS 
FLNCRT 
FORMAT 
HORTOT 
INICEN 
LIPENH 
LLN 
MCRTC 
NPRC HA 
PRIFLG 
RECCHA 
RF ILE 
SCANLN 
TABLE 
TPX 
UPDATH 
VAIFR 
VAPADD 
VAPCR 
VATALH 
VERDIS 
VIDEO 
XHOLD 


ZE1C 
gD88 
D809 
155F 
1679 
lA39 
14F8 
1519 
15E9 
gF 38 
ZZZE 
ZZA 
ZCD4 
lA41 
GEF 2 
ZE87 
ZEA2 
ZE 32 
lA49 
9998 
1594 
9019 
lA32 
15C5 
168A 
lA58 
12AE 
D8g1 
9399 
l1A42 
gF 2D 
9712 
185D 
1893 
189C 
1897 
2996 
gC89 
l1A2C 


ACURX 
ADJV 
BRKTST 
CHAPLN 
CIA 
CLRHOM 
COMCOB 
COTABA 
CRTINT 
CURDNX 
CURPOL 
CURUP 
DSPSTH 
EEOL 
EREOL 
EROXX 
ESCFLG 
F LNDN 
HOCU 
HSYPOS 
INLINE 
LIPENL 
LPSCR 
MODE 
OUTALA 
PZPTR 
RESET 
RIGHT 
SCRPTR 
TEMCOL 
TRAPRO 
UPDATL 
VALID 
VAPADN 
VASR 
VATALL 
VERTOT 
VSYPOS 
YHOLD 


SYMBOL 
HORTOT 
VERTOT 
MODE 
DSPSTH 
LI PENH 
ESC 
VIDEO 
RETURN 
HOCU 
ERLNX 
TOSCR 
F LNDN 
ADJU 
AC URA 
FLNCRT 
EREOL 
EREOS 
ERALLN 
CURDN X 
CURRGT 
RSB 
RESTTY 
COMCOC 
CENOUT 
CTROB 
MCRTB 
CHEC KA 
OUTA LB 
INALLX 
VAPADD 
VATALH 
VAACR 
VAPADN 
AHOLD 
SCRPTR 
ESCF LG 
LPSCR 
JMPVEC 
TOPPIA 


TABLE 3499 37A8 


9999 
go34 
9038 
g3C 
9019 
931B 
9C8g 
JCAB 
ZCCB 
ZCED 
9DZ4 
gD49 
ZDA 3 
ZDE8 
ZE 32 
JE84 
ZEAE 
JEF 2 
gF 59 
gF81 
ZFCB 
14BC 
1513 
1559 
1593 
15C4 
1681 
16B6 
1796 
1893 
1897 
189B 
189F 
lA 2D 
lA34 
lA3A 
lA3F 
lA54 
lA59 


HORDIS 
VTOTAJ 
SCANLN 
DSPSTL 
LIPENL 
DUMMY 
VIDEND 
FEED 
UP 
ERSCRX 
FLNUP 
CLNDN 
ADSA 
ACURB 
CRAMPT 
EROLX 
EEOL 
TVPUT 
CURUP 
HOME 
CRTINT 
C OMC OM 
COM TAB 
CENTRO 
INICEN 
MCRTC 
NPRCHA 
BRKTST 
VAPBD 
VATACL 
VATBCL 
VAPCR 
PZ PTR 
FLN 
CURSOR 
TEMCOL 
FORMAT 
CENF LG 
SPAD 


3901 
9905 
9509 
955D 
9011 
ZBF 
ZC8A 
ZCB 3 
ZCCE 
ZCE6 
ZD ZA 
9D SE 
ZDB 9 
ZDF 7 
ZE48 
ZE87 
ZECF 
gF 8 
gF 5C 
gF87 
JFDA 
14F4 
1519 
155F 
1594 
15C5 
168A 
16CF 
1899 
1894 
1898 
189C 
lA29 
lA2E 
lA36 
lA3B 
1A49 
lA56 
lA89 


HSYPOS 
VERDIS 
CURSTA 
CURPOH 
UPDATH 
SPACE 
CHECK 
CLRHOM 
DOWN 
DELLIN 
CLNUP 
LLNDN 
ADJV 
ACURX 
CRAMP 
EROXX 
EEOLB 
TPX 
CURUPX 
RESET 
CIA 
COMCOA 
COTABA 
CTROA 
MOVCRT 
CRTINA 
OUTALL 
NEWINI 
VAPAD 
VATACH 
VATBCH 
VAIFR 
YHOLD 
CLN 
INLINE 
RAMBEG 
DUPLEX 
TRAPRO 
AR 


9392 
9036 
ZZA 
ZIE 
9312 
9929 
gc 9 
9CBI 
ZCD4 
ZCEC 
ZD IF 
9D73 
ZDD8 
ZDFA 
ZE6D 
gE99 
ZED7 
gF 2D 
gF 78 
gF9E 
ZF DC 
l4F8 
152D 
156D 
1 5AC 
15E9 
1699 
16DA 
1891 
1895 
1899 
185D 
lA2B 
lA39 
lA38 
lA3C 
lA41 
1A57 
D859 


VHSYWI 
VSYPOS 
CUREND 
CURPOL 
UPDATL 
RAMPTR 
VALVEC 
LEFT 
RIGHT 
VALID 
LLNUP 
ADJUST 
ADJCUR 
ACURC 
ERTEOL 
ERTEOS 
ERAF LN 
CURDN 
CURLFT 
RSA 
RECCHA 
COMCOB 
C OMADR 
WAIT 
MCRTA 
CHE 
OUTALA 
INALL 
VAPBDD 
VATALL 
VASR 
VAIER 
XHOLD 
LLN 
COL 
CHAPLN 
TABLE 
PRIFLG 
RFILE 


9393 
9037 
937B 
BF 
9913 
ZAFC 
ZCAS 
BCC 2 
ZCDA 
ZCFA 
gD 34 
gD88 
9DDB 
ZE 1C 
ZEGE 
JEA2 
ZEDC 
gF 38 
JF 7B 
gFBC 
12AE 
153B 
1539 
1573 
15BE 
1679 
16AE 
16F8 
1892 
1896 
180A 
183E 
lA 2C 
lA32 
lA39 
lA3E 
lA42 
lA58 
D891 


Junior computer met floppy disk-interface 


Wordt de VDU-kaart op een Junior met floppy disk-interface aangesloten, 
dan moet op de interface-kaart zowel in het IC-voetje van IC4 als in het 
IC-voetje van ICB een EPROM van het type 2716 worden geplaatst. Alle 
andere noodzakelijke aanpassingen zijn in Elektuur september 1983 be- 
schreven. 

De parameters voor de video-driver zijn opgeslagen in de geheugenplaatsen 
EFCO... EFFF. Ook het l/O-gedeelte van de DOS funktioneert nu volledig: 


LIST #4 zend listing naar Centronics-interface. 

DISK!IO 95" zend listing naar het beeldscherm en naar de seriële 
interface van de Junior. 

DISK!1O QD" zend listing naar Centronics-interface, naar het beeld- 


scherm en naar de seriële interface. 
DISKH10O , 1’ zend listing naar het beelscherm. 


De editor-kommando'’s zijn nu kompatibel met het DOS-systeem OS65D- 
V33: 

CTL-F beweeg de cursor naar het begin van de regel. 

CTL-| _TAB-funktie. Beweeg de cursor acht posities naar rechts. 

CTL-R beweeg de cursor naar het einde van de regel. 

CTL-H beweeg de cursor een positie naar links. 

CTL-P beweeg de cursor een positie naar rechts. 


Enkele opmerkingen over de video-software 


Met de VDU-kaart is het mogelijk om 7 verschillende beeldschermformaten 
te programmeren, één formaat kan men nog in de EPROM programmeren. 
Het omschakelen van het ene beelschermformaat naar het ander gebeurt 
door het schrijven in de geheugenplaats FORMAT en het oproepen van de 
subroutines MOVCRT en RESET. Staat in FORMAT OO, dan is het formaat 
van het beeldscherm 80 x 24; staat in FORMAT @1, dan is het formaat 

82 x 25, etc. 

De subroutine MOVCRT kopieert de door FORMAT gespecificeerde lookup- 
tabel vanuit de EPROM naar de RAM. De subroutine CRT INT, die in 
RESET opgeroepen wordt, leest alle data die voor het programmeren van 

de CRT-controller nodig is uit de RAM en kopieert die vervolgens in de CRT- 
controller. 

Met behulp van POKE's kan de data vanaf de geheugenplaats TABLE veran- 
derd worden. Met het kommando DISK!’GO F330'’ (DOS-Junior) kan de 
CRT-controfler tijdens een programma opnieuw geprogrammeerd worden. 
De CRT-controller kan (zie demo-programma'’s!) ook met X = USR(X) 
geïnitialiseerd worden. 


9531: 
9392: 
9593: 
9594: 
8395: 
9596: 
0997: 
9598: 
0399: 
9919: 
3311: 
9912: 
8813: 
9314: 
9515: 
g916: 
8017: 
9418: 
9919: 
8929: 
8821: 
9922: 
9823: 
9324: 
g325: 
9326: 
8327: 
9928: 
9329: 
8339: 
9831: 
9932: 
9433: 
8334: 
9035: 
9936: 
8937: 
9938: 
9939: 
gg4p: 
gg4l: 
gg42: 
9543: 
9544: 
9945: 
9346: 
9847: 
9348: 
9949: 
,959: 
9551: 
9952: 
9553: 
9854: 
9855: 


0856: 


Fogg 


Fogg 
FO9g 
F90g 
Fo90 
F30g 
Fogg 
Fogg 
Fogg 
F9gg 
Fogg 
F99g 
Fogg 
Fogg 
Fogg 
Fogg 
Fogg 


FO9g 
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ORG SF920 


SOURCE LISTING OF THE VIDEO HANDLER FOR 
ELEKTOR'S DOS JUNIOR COMPUTER 


WRITTEN BY A. NACHTMANN 


© 1983 


COPYRIGHT BY ELEKTOR/ELEKTUUR 


PROCESSOR: 6582 OR 65CH2 
CRT CONTROLLER: 6845 MOTOROLA, ROCKWELL, SYNERTEC 


SCREEN COMMANDS OF THE DOS JUNIOR COMPUTER « 


OPERATING SYSTEM: OS-65D V3.3 (OHIO SCIENTIFIC) 


CARRIAGE RETURN 

LINE FEED 

<ESC><1> CLEAR SCREEN & HOME 

<ESC><2> CLEAR SCREEN & HOME 

<ESC><3> HOME CURSOR 

<ESC><4D ERASE TO EOS 

<ESC><5> CURSOR UP 

<ESC><6> CURSOR DOWN 

<ESC><8> ERASE TO EOL 

<CTL-H> CURSOR LEFT 

<CTL-P> CURSOR RIGHT 

<CTL-F> CURSOR TO FRONT OF LINE (EMULATED) 
<CTL-R> CURSOR TO REAR OF LINE (EMULATED) 


<CTL-I> TAB 8 COLUMS (EMULATED) 

<CTL-T> RETYPE THE CURRENT LINE (EMULATED) n 

“POINTERS AND TEMPS * 

RAMPTR * $9056C RAMPOINTER 

AHOLD * $2363 SAVE THE CHARACTER HERE 

FLN « SEFCG FIRST LINE POINTER 

C LN n FLN +92 CURRENT LINE POINTER 

LLN * CLN +92 LAST LINE POINTER 

SCRPTR * LLN +92 SLAVE SCREEN POINTER 

CURSOR * SCRPTR +92 CURRENT CURSOR 

INLINE * CURSOR +42 IN LINE OF WINDOW 

COL * INLINE +91 CURRENT COLUMN 

ESCFLG * COL +91 ESC FLAG 

TEMCOL * ESCFLG +91 SLAVE COLUMN 

RAMBEG * TEMCOL +91 THE REFRESH RAM STARTS HERE 

CHAPLN * RAMBEG +92 CHARACTER/LINE 

LPSCR %* CHAPLN +91 LINES/SCREEN 

FORMAT * LPSCR +91 SCREEN FORMAT 

INDEX %* FORMAT +41 SOFTWARE STACK FOR CHAR. 
INPUT 

BUFFER * INDEX +91 


9557: 
9558: 
9859: 
g36g: 
9861: 


9362: 
9563: 
3364: 
9965: 
9566: 
9967: 
9968: 
9369: 
9379: 
8271: 
9872: 
9973: 
9374: 
8875: 
8976: 
8377: 
9978: 
9879: 
9389: 
4381: 
3982: 
9983: 
384: 
9385: 
9386: 
9387: 
588: 
9989: 
2399: 
9491: 
gg92: 
g993: 
9394: 
89395: 
9396: 
9997: 
8398: 
9399: 
9148: 
8181: 
8192: 
3193: 
9184: 
8195: 
2196: 
9197: 
9198: 
9199: 
8119: 
9111: 
9112: 


Fogg 
Fogg 
Fog 
Fogg 
Fg29 


F99g 
Fogg 
F9 


F02g 
F902 


Fogg 


F99g 
Fogg 
FOg2 
Fg2g 
FO9g 
Fogg 
Fogg 
Fggg 
FO09 
Fogg 
Fogg 
FO9D 
Fo99 
Fogg 
Fogg 
Fg90g 


Fogg 
Fogg 
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TABLE %* BUFFER +98 CRT FORMAT TABLE 

JMPVEC * TABLE +12 COMMAND ADDRESS POINTER 

CENFLG %* JMPVEC +42 CENTRONICS FLAG 

DUPLEX %* CENFLG +91 S=FULL, 1=HALF DUPLEX 

AUTOLF * DUPLEX +91 Z=NO, 1=AUTO CRLF TO 
CENTRONICS 

NMIVEC * AUTOLF +41 (NMI VECTOR) 

IRQVEC * NMIVEC +92 (IRQ VECTOR) 

TRAPRO * IRQVEC +92 PROCESSOR FLAG (NOT USED) 

SPECIAL CHARACTERS* 

SPACE * $9927 

ESC “ $091B 

*JUNIOR'S SERIAL 1/9* 

SPAD x SFA89 6532 IC ON THE STANDART JC 


*VIA ON THE EXPANSION BOARD OF THE JUNIOR COMP.* 


VAIFR 
VAIER 
VAPADN 


VAPBD +9D INTERUPT FLAG REGISTER 
VAPBD +JE INTERUPT ENABLE REGISTER 
VAPBD +9F PORT A DATA, NO HANDSHAKE 


VAPBD * $SF899 PORT B DATA 
VAPAD * VAPBD +Jl PORT A DATA 
VAPBDD * VAPBD +92 PORT B DATA DIRECTION 
VAPADD * VAPBD +93 PORT A DATA DIRECTION 
VATACL * VAPBD +94 Tl, LATCH-LOW, COUNTER-LOW 
VATACH * VAPBD +95 Tl, COUNTER-HIGH 
VATALL * VAPBD +96 Tl, LATCH-LOW 
VATALH * VAPBD +97 Tl, LATCH-HIGH 
VATBCL * VAPBD +98 T2, LATCH-LOW,COUNTER-LOW 
VATBCH * VAPBD +49 T2, COUNTER-HIGH 
VASR ed VAPBD +JA SHIFT REGISTER 
VAACR %* VAPBD +4B AUXILARY CONTROL REGISTER 
VAPCR *& VAPBD +9C PERIPHERAL CONTROL REGISTER 
* 
* 
* 


*CRT ADDRESSES * 


AR ® $D899 ADDRESS REGISTER OF THE CRT 
RFILE * AR +9l REGISTER FILE OF CRT 


KkAAAAAAAAAAKAARAKAKAAAAAKKKK 


* VT 52 COMPATIBLE TERMINAL * 
KRAAK AAKAhkhAAKAAKAAARAAA kk kk 


“INTERNAL 6845 REGISTER FILE* 


9113: 
8114: 
8115: 
g116: 
9117: 
9118: 
9119: 
9129: 
9121: 
8122: 
9123: 
8124: 
8125: 
8126: 
9127: 
5128: 
9129: 
0139: 
9131: 
8132: 
8133: 
9134: 
9135: 
8136: 
8137: 
8138: 
9139: 
8149: 
9141: 
9142: 
8143: 
144: 
9145: 
g146: 
9147: 
9148: 
9149: 
9158: 
8151: 
8152: 
9153: 
154: 
g155: 
9156: 
8157: 


9158: 
9159: 
9169: 
9161: 


9162: 
g163: 
9164: 
g165: 
9166: 
9167: 
9168: 


F3gg 
Fg0g 
Fogg 
Fogg 
Fogg 
Fogg 
F29g 
FO9g 
Fg9g 
F9gg 
Fggg 
Fggg 
Fggg 
FOgg 
Fg3g 
FO0g 
Fogg 
FO0g 
F99g 
Fg0g 
F929 


F93g 
Fog1 
Fgg2 
Fgg3 
F9g4 
Fgg5 
Fgg8 
FOJA 
F9gC 


F9GF 
Fg19 
FO11 
F912 
Fg13 
FO14 


F917 
Fg19 


FOlA 


F9ID 
FOIF 


F522 
Fg25 
F627 
FO2A 


85 
81 


89 


23 


EF 


FA 


FA 


FA 
F3 


F3 
EF 


HORTOT 
HORDIS 
HSYPOS 
VHS YWI 
VERTOT 
VTOTAJ 
VERDIS 
VSYPOS 
MODE 
SCANLN 
CURSTA 
CUREND 
DSPSTH 
DSPSTL 
CUR POH 
CURPOL 
LIPENH 
LIPENL 
UPDATH 
UPDATL 
DUMM Y 
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% ok ok ok 4 Os 


$0523 
S3091 
Sg302 
$9093 
sg094 
S9395 
sg996 
$3997 
$g708 
Sgg09 
S93JA 
Sg33B 
S89BC 
$g32D 
SIDDE 
$S93JF 
$3019 
S9311 
S9012 
$9013 
SJZIF 


*kKVIDEO HANDLER** 


VIDEO 


VIDEND 


BRKTST 


CHECK 


PHA 
TXA 
PHA 
TYA 
PHA 
LDA 
CMPIM 
BNE 
STA 


PLA 
TAY 
PLA 
TAX 
PLA 
BIT 


BPL 
RTS 


BIT 


BPL 
JMI 


JSR 
BCS 
LDAX 
STA 


AHOLD 
ESC 
CHECK 
ESCFLG 


SPAD 


BRKTST 


SPAD 


BRKTST 
SFA 7C 


C OMC OM 
VALVEC 
COMADR 
JMPVEC 


HORIZONTAL TOTAL-] 

HORIZONTAL DISPLAYED 

HORIZONTAL SYNC POSSTION 
VERTICAL, HORIZONTAL SYNC WIDTH 
VERTICAL TOTAL-l 

VERTICAL TOTAL ADJUST 

VERTICAL DISPLAYED 

VERTICAL SYNC POSITION 
INTERLACE MODE REGISTER 
CHARACTER SCAN LINES-1 

CURSOR START 

CURSOR END 

DISPLAY START HIGH 

DISPLAY START LOW 

CURSOR POSITION HIGH 

CURSOR POSITION LOW 

LIGHT PEN HIGH « 
LIGHT PEN LOW 

UPDATE HIGH (ROCKWELL, SYNERTEK) 
UPDATE LOW 

DUMMY REGISTER 


SAVE THE REGISTERS 


GET THE CHARACTER 
IS IT THE ESC CHAR.? 


SET THE ESC FLAG 


RESTORE THE REGISTERS 


BIT SPAD CHECK FOR BREAK 
DURING OUTPUT 


BIT SPAD WAIT TILL KEY IS 
RELEASED 


GOTO BREAK HANDLER 


COMPUTE THE COMMAND INDEX 
THERE WAS NO COMMAND 
SET THE COMMAND VECTOR 


9169: 
9178: 
0171: 
8172: 
4173: 
8174: 
8175: 
8176: 
8177: 
9178: 
8179: 
9189: 
3181: 
g182: 
3183: 
4184: 
9185: 
9186: 
9187: 
3188: 
2189: 
9199: 
9191: 
9192: 
9193: 
g194: 
8195: 
9196: 
9197: 
3198: 
9199: 
0299: 
9291: 
8202: 
8293: 
9294: 
8295: 
8296: 
8297: 
9208: 
8299: 
2219: 
8211: 
8212: 
3213: 
8214: 
8215: 
9216: 
8217: 
9218: 
8219: 
8229: 
8221: 
8222: 
8223: 
8224: 


Fg2D 
FO2E 
Fo31 
Fg34 


Fg37 


Fg3A 
F93C 
Fg3F 
Fg42 


Fg45 
Fg48 


Fg4B 
FO4E 
FO51 


FO54 
F957 


FOSA 
FgS5D 


Fo69 
F963 


Fg66 
Fg69 


F96C 
F96F 


A2 
8E 


4C 


29 
4C 


29 


4C 


29 
4C 


29 
4C 


29 
4C 


29 
4C 


29 


C2 
EE 


8C 


CA 
gF 


19 


pF 


9D 
gF 


19 
gF 


EE 
gF 


CA 
gF 


13 
gF 


F3 
EF 
EF 


Fg 


EF 


Fg 


F2 
Fg 


F3 


Fg 


F3 
Fg 


F3 
Fg 


F2 
Fg 


F2 
Fg 


F3 
Fg 


PAGE 94 


INX 
LDAX COMADR 
STA _JMPVEC +41 
JMI _JMPVEC 


VALVEC JMP VALID 
*KKEXECUTE A VIDEO COMMAND*** 


*CARRIAGE RETURN* 
RETURN LDXIM S$99 
STX COL COL=9 
JSR ADJUST ADJUST THE CURSOR 
JMP VIDEND 
*LINE FEED* 


FEED JSR CURDN 
JMP VIDEND 


*CLEAR SCREEN & HOME CURSOR* 
CLRHOM JSR HOME 

JSR ERTEOS 

JMP VIDEND 
*CURSOR LEFT* 


LEFT JSR CURLFT 
JMP VIDEND 


*HOME CURSOR* 


HOCU JSR HOME 
JMP VIDEND 


*CURSOR UP* 


UP JSR CURUP 
JMP VIDEND 


*CURSOR DOWN* 


DOWN JSR CURDN 
JMP VIDEND 


*CURSOR RIGHT* 


RIGHT JSR CURRGT 
JMP VIDEND 
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9225: *ERASE TO END OF LINE* 
8226: E 

9227: F872 23 99 F2 ERLNX JSR ERTEOL 
9228: F975 4C GF FO JMP _VIDEND 
9229: 

3239: *ERASE TO END OF SCREEN* 
9231: 

9232: F978 29 34 F2 ERSCRX JSR ERTEOS 
9233: FQ7B 4C QF FO JMP _ VIDEND 
9234: 

9235: 

9236: 

9237: 

9238: *DELETE THE CURRENT LINE* 
3239: 

3249: FOJE A2 29 DELLIN LDXIM $99 

9241: FO83 8E CB EF STX COL 

3242: F283 29 6D F1 JSR ADJCUR MOVE CURSOR TO COL 9 
9243: FQ86 23 99 F2 JSR ERTEOL 
3244: FQ89 4C GF FO JMP _ VIDEND 
9245: 

9246: 

8247: 

9248: 

9249: “FILTER < SPACE* 

9253: 

9251: F98C AD 63 23 VALID LDA AHOLD 
9252: Fg8F C9 29 CMPIM * 

9253: FQ91 BĲ 23 BCS _ TOSCR 
9254: F993 4C ZF FZ JMP _ VIDEND 
9255: 

8256: “TRANSFER TO SCREEN* 
8257: 

9258: F996 23 IA F2 TOSCR JSR TVPUT 
9259: FQ99 4C GF FZ JMP _VIDEND 
9269: 

8261: 

8262: 

9263: k&*SUBROUTINES*** 

3264: 

9265: 

9266: “FIRST LINE UP* 

8267: 

9268: F99C 38 FLNUP SEC 

9269: FZ9D AD CI EF LDA FLN 

8279: FZAG ED DO EF SBC _ CHAPLN FLN=FLN-CHAPLN 
9271: FJA3 8D CO EF STA _ FLN 

9272: FQA6 AD Cl EF LDA FLN +91 
9273: FJA9 E9 99 SBCIM $99 

9274: FZAB 29 97 ANDIM $97 MAX IS S7FF 
9275: FOAD 8D Cl EF STA _ FLN +01 
9276: F9B3 69 RTS 

9277: 

9278: “CURRENT LINE UP* 

3279: 


9289: FAB] 38 CLNUP SEC 


8281: 
„282: 
9283: 
0284: 
2285: 
g286: 
0287: 
g288: 
g289: 
g299: 
8291: 
9292: 
9293: 
9294: 
9295: 
9296: 
9297: 
3298: 
9299: 
9398: 
8301: 
9302: 
9393: 
384: 
8305: 
9396: 
8397: 
2308: 
8309: 
9319: 
9311: 
0312: 
9313: 
9314: 
8315: 
2316: 
9317: 
318: 
9319: 
2329: 
8321: 
8322: 
8323: 
8324: 
9325: 
4326: 
9327: 
9328: 
8329: 
9339: 
8331: 
9332: 
8333: 
9334: 
9335: 
8336: 


F9B2 
FgB5 
F3B8 
F9BB 
FJBE 
F9Cg 
F9C2 
F9CS5 


F9C6 
F9C7 
FOCA 
F9CD 
FoDg 
FOD3 
FgDS5 
F9D7 
FDA 


F ODB 
F9DC 
FODF 
FJE2 
FJE5 
FJES8 
FOEA 
FOEC 
FOEF 


FOFg 
FOF 1 
FOF4 
FOF7 
F9FA 
FgFD 
F9FF 
F191 
F1J4 


F1g5 
F196 
F199 
F13C 
F19F 
Fll2 
Fl14 
F116 
F119 


18 
AD 
6D 


AD 
69 
29 
8D 
69 


C4 


C4 
C5 
99 
97 
C5 


Cg 
Dg 
Cg 
Cl 
99 
97 
Cl 


C4 


C4 
C5 
) 
97 
E53 


EF 


EF 
EF 


EF 


EF 


EF 
EF 


EF 
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LDA _CLN 
SBC CHAPLN 
STA CLN 
LDA C LN 
SBCIM S$99 
ANDIM $97 
STA CLN 
RTS 

*LAST LINE UP* 

LLNUP SEC 
LDA LLN 
SBC CHAPLN 
STA LLN 
LDA LLN 
SBCIM SJ 
ANDIM $97 
STA LLN 
RTS 

“FIRST LINE DOWN* 

FLNDN CLC 
LDA FLN 
ADC CHAPLN 
STA FLN 
LDA FLN 
ADCIM $79 
ANDIM $97 
STA FLN 
RTS 

“CURRENT LINE DOWN* 

CLNDN CLC 
LDA CLN 
ADC CHAPLN 
STA CLN 
LDA CLN 
ADCIM $99 
ANDIM $97 
STA CLN 
RTS 

*LAST LINE DOWN* 

LLNDN CLC 
LDA LLN 
ADC CHAPLN 
STA LLN 
LDA LLN 
ADCIM $99 
ANDIM $97 
STA LLN 
RTS 


+91 


MAX IS S7FF 
+91 


+91 


MAX IS ST7FF 
+31 


FLN=FLN+CHAPLN 
+01 


MAX IS SJFF 
+91 


CLN=CLN+CHAPLN 
+31 


MAX IS S7FF 
+01 


LEN =LLN+CHAPLN 
+91 


MAX IS SJ7FF 
+91 
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9337: 

9338: “ADJUST THE LINE POINTERS* 

9339: 

9349: FllA AC CB EF ADJUST LDY COL IS COLUMN NEGATIVE? 

9341: F1IlD 18 23 BPL ADSA BRANCH ON NO 

4342: FÌIF CE CA EF DEC INLINE GO BACK ONE LINE 

8343: F122 19 11 BPL ADJU BRANCH IF WE ARE STILL ON 
THE SCREEN 

9344: F]24 29 9C FZ JSR FLNUP FIRST LINE UP 

9345: F127 23 C4 F1 JSR FLNCRT ADJUST DISPLAY START 

9346: F12A 29 6E F2 JSR ERAFLN ERASE THE FIRST LINE 

4347: F12D 29 C6 F9 JSR LLNUP LAST LINE UP 

2348: F139 Ag 99 LDYIM S$99 RESET INLINE 

3349: F132 8C CA EF STY INLINE 

9359: 

4351: F135 29 Bl FS ADJU JSR CLNUP CURRENT LINE UP 

0352: F138 AC Dh EF LDY CHAPLN 

9353: F13B 88 DEY COL=CHAPLN-1 

9354: F13C 8C CB EF STY COL 

9355: F13F 4C 6D F1 JMP ADJCUR 

8356: 

9357: 

4358: F142 CC DA EF ADSA CPY CHAPLN IS COL>=CHAPLN? 

4359: F145 98 26 BCC ADJCUR BRANCH ON NO 

8369: F147 AD 09 LDYIM S99 

9361: F149 8C CB EF STY COL COL=g 

9362: F1I4C EE CA EF INC INLINE MOVE DOWN FOR 1l LINE 

9363: F14F AC CA EF LDY INLINE 

9364: F152 CC Dl EF CPY LPSCR ARE WE STILL ON THE SCREEN? 

9365: F155 99 13 BCC ADJV IS INLINE>=LPSCR? 

4366: F157 29 DB FO JSR FLNDN FIRST LINE DOWN 

8367: F15A 29 C4 F1 JSR FLNCRT ADJUST DISPLAY START 

8368: F1SD 29 95 F1 JSR LLNDN LAST LINE DOWN 

9369: F169 AC Dl EF LDY LPSCR 

4379: F163 88 DEY 

8371: F164 8C CA EF STY INLINE INLINE=LPSCR-I 

9372: F167 29 84 F2 JSR ERALLN ERASE LAST LINE 

9373: 


4374: F16A 29 F9 F9 ADJV JSR CLNDN CURRENT LINE DOWN 
8375: 


9376: F16D A2 J9 ADJCUR LDXIM $99 

9377: F16F 8E C8 EF STX CURSOR RESET CURSOR 
9378: F172 8E C9 EF STX CURSOR +91 

9379: F175 AE CA EF LDX INLINE IS INLINE=g? 
938%: F178 F9 12 BEO ACURX BRANCH ON YES 
g38ì: 

g382: F17A 18 ACURA CLC 

9383: F17B AD D$ EF LDA CHAPLN 

9384: F1JE 6D C8 EF ADC CURSOR 

4385: F181l 8D C8 EF STA CURSOR 

g386: F184 99 93 BCC ACURB 

9387: F186 EE C9 EF INC CURSOR +91 CURSOR=INLINE*CHAPLN 
9388: 

9389: F189 CA ACURB DEX 

9399: F18A DJ EE BNE ACURA 

9391: 


9392: F18C 18 ACURX CLC 


9393: 
9394: 
8395: 
9396: 
8397: 
3398: 
4399: 
g4pg: 
g481: 
9452: 
9493: 
g4D4: 
g495: 
g496: 
,497: 
8498: 
g499: 
9419: 
g4ll: 
g412: 
8413: 
9414: 
9415: 
9416: 
3417: 
g418: 
9419: 
g42g: 
9421: 
8422: 
9423: 
g424: 
9425: 
8426: 
g427: 
9428: 
g429: 
9439: 
8431: 
9432: 
9433: 
9434: 
g435: 
g436: 
9437: 
9438: 
3439: 
g449: 
9441: 
9442: 
g443: 
9444: 
9445: 
g446: 
9447: 
9448: 


F18D 
F199 
F193 
F196 
F199 
F19C 


F19F 
FlAg 
FlA3 
F1A6 
F1A9 
F 1AB 


FlIAE 
F1B9 
F1IB3 
F1B6 
F1B9 
F1BA 
F1BD 
F1Cg 
F1C3 


F1C4 
F1C6 
F1C9 
F1CC 
FICF 
F1Dg 
F1D3 
F1D6 
F1D9 


FIDA 
FIDB 
FIDE 
FIE1 
F1E3 
F1E6 
FIE9 
F1EB 
F1ED 
FIEE 
F1Fg 
F1IF3 
F1FS5 
F1F7 
F1F9 
F1FB 
F1FD 


ge 
Cl 


91 
Cg 


99 
gl 


EF 
EF 


EF 
EF 
EF 
EF 
EF 
EF 
EF 
D8 
D8 
EF 


D8 


EF 


EF 
EF 


EF 
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LDA 
ADC 
STA 
LDA 
ADC 
STA 


CLC 
LDA 
ADC 
STA 
BCC 
INC 


ACURC LDXIM 
LDA 
STX 
STA 
INX 
LDA 
STX 
STA 
RTS 


“FIRST LINE T 


FLNCRT LDXIM 
LDA 
STX 
STA 
INX 
LDA 
STX 
STA 
RTS 


*COMPUTE THE 


CRAMPT CLC 
LDA 
ADC 
STA 
LDA 
ADC 
ANDIM 
STA 
CLC 
LDA 
ADC 
STA 
BCC 
INC 
LDA 
ANDIM 
STA 


‚ FLN 


CURSOR 
CURSOR 
FLN 

CURSOR 
CURSOR 


COL 
CURSOR 
CURSOR 
ACURC 
CURSOR 


CUR POH 
CURSOR 
AR 
RFILE 


CURSOR 
AR 
RFILE 


O CRT* 


DSPSTH 
FLN 

AR 
RFILE 


F LN 
AR 
RFILE 


CURSOR=CURSOR+F LN 
+01 
+01 
+01 


CURSOR=CURSOR+COL 


+41 


+31 


CURSOR--->CRT CONTROLLER 


+91 


RAM POINTER* 


SCRPTR 
RAMBEG 
RAMPTR 
SCRPTR 
RAMBEG 
$D7 

RAMPTR 


RAMPTR 
TEMCOL 
RAMPTR 
CRAMP 
RAMPTR 
RAMPTR 
SD 7 

RAMPTR 


KAMPTR=SCRPTR+RAMBEG 


+91 
+91 
MAX IS SDJ7FF 
+91 


RAMPTR=RAMBEG+SCRPTR+TEMCOL 


+91 
+01 
MAX IS SD7FF 
+91 
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9449: 

Z459: FIFF 62 CRAMP RTS Ö 

9451: 

9452: KERASE TO END OF LINE* 

9453: 

J454: F203 AE C2 EF ERTEOL LDX CLN 

9455: F293 AC C3 EF LDY _ CLN +91 

3456: F296 8E C6 EF STX _ SCRPTR SCRPTR=CLN 

9457: F299 8C CJ EF STY _SCRPTR +91 

3458: F29C AC CB EF LDY COL GET THE CURR. COLUMN 
9459: F29F 8C CD EF STY _ TEMCOL TEMCOL=COL 

9469: F212 A2 29 LDXIM ' SPACE TO X 

Q46l: F214 A9 99 LDYIM $99 INDEX=9 

g462: 

3463: F216 29 DA Fl EREOL JSR CRAMPT RAMPTR=RAMBEG+SCRPTR+TEMCOL 
3464: 

9465: F219 8A EROLX TXA SPACE--->RAM 

9466: F21A 91 6C STAIY RAMPTR 

9467: F21C EE CD EF INC _TEMCOL TEMCOL=TEMCOL+1 
J468: F21F E6 6C INC _ RAMPTR 

9469: F221l D3 48 BNE _ EROXX 
9479: F223 E6 6D INC RAMPTR +41 RAMPTR=RAMPTR+1 
9471: F225 A5 6D LDA RAMPTR +41 

9472: F227 29 D7 ANDIM $D7 MAX IS SD7FF 

9473: F229 85 6D STA _ RAMPTR +91 

z474: 

9475: F22B AD CD EF EROXX LDA TEMCOL IS TEMCOL>=CHAPLN? 
9476: F22E CD Dg EF CMP _ CHAPLN 

9477: F231 93 E6 BCC _EROLX BRANCH ON NO 

9478: F233 69 RTS 

g479: 

9489: *ERASE TO END OF SCREEN* 

9481: 

3482: F234 AE CA EF ERTEOS LDX INLINE ARE WE ALREADY IN THE 
9483: F237 E8 INX LAST LINE? 

D484: F238 EC Dl EF CPX _ LPSCR 

3485: F23B F3 C3 BEQ ERTEOL IF YES DO ONLY "EOL" 
9486: F23D 29 43 F2 JSR ERTEOL DO "EOL" FOR THIS LINE 
9487: 

3488: F249 18 EREOS CLC 

J489: F24l AD C6 EF LDA _SCRPTR 

3499: F244 6D DJ EF ADC _ CHAPLN SCRPTR=SCRPTR+CHAPLN 
3491: F247 8D C6 EF STA _SCRPTR OR SCREEN POINTER DOWN 
9492: F24A AD C7 EF LDA SCRPTR +41 

9493: F24D 69 99 ADCIM $39 

J494: F24F 29 27 ANDIM $77 MAX IS SJ7FF 

9495: F251 8D C7 EF STA _SCRPTR +91 

9496: F254 CD C5 EF CMP _LLN +91 IS SCRPTR=LLN? 
9497: F257 D3 98 BNE _ EEOL 

9498: F259 AD C6 EF LDA SCRPTR 

9499: F25C CD C4 EF CMP _ LLN 

9599: F25F FO 38 BEQ EEOLB ERASE LAST LINE AND STOP 
9591: 

9532: F261 8C CD EF EEOL STY TEMCOL TEMCOL=g 

3593: F264 23 16 F2 JSR _EREOL 


9504: F267 BĲ D7 BCS EREOS 


g5g5: 
gsg6: 
9597: F269 
9598: F26C 
gsg9: 
9519: 
g5s1l: 
9512: F26E 
39513: F279 
g5l4: F273 
8515: F275 
g5s16: F278 
9517: F27B 
9518: F27E 
g519: F281 
9520: 
8521: 
8522: 
9523: F 284 
9524: F286 
8525: F289 
g526: F28B 
9527: F28E 
8528: F291 


0529: F294 
9539: F297 
9531: 

9532: 

8533: 

9534: F29A 
9535: F29B 
8536: F29E 
9537: F2Al 
4538: F2A3 
9539: F2A6 
4549: F2A9 
9541: F2AB 
9542: F2AD 
9543: F2AE 
8544: F2BÌ 
9545: F2B3 
9546: F2B5 
9547: F2B7 
9548: F2B9 
9549: F2BB 
9559: F2BD 
9551: 

9552: F2BF 
g55S3: F2C2 
9554: F2C4 
g5s55: F2C7 
9556: 

9557: 

4558: 

8559: F2CA 
8569: F2CD 


8C 
Fg 


EE 
23 


CD 
A8 


CA 
Fg 


EF 


EF 
EF 
EF 
EF 


F2 


EF 
EF 


EF 


EF 


23 


EF 
F1 


EF 
F9 
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EEOLB STY 
BEOQ 


* 


TEMCOL TEMCOL=} 
EREOL 


KERASE THE FIRST LINE* 


ERAFLN LDYIM 
STY 
LDXIM 
LDA 
STA 
LDA 
STA 
JMP 


so 

TEMCOL 

} 

FLN 

SCRPTR SCRPTR=F LN 

FLN +91 

SCRPTR +91 

EREOL NOW ERASE THE FIRST LINE 


*ERASE THE LAST LINE* 


ERALLN LDYIM 
STY 
LDXIM 
LDA 
STA 
LDA 
STA 
JMP 


sg 

TEMCOL TEMCOL=9 

t 

LLN 

SCRPTR SCRPTR=LLN 

LLN +91 

SCRPTR +01 

EREOL NOW ERASE THE LAST LINE 


*PUT A CHARACTER ON THE SCREEN* 


TVPUT CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDYIM 
CLC 
LDA 
ADC 
STA 
BCC 
INC 
LDA 
ANDIM 
STA 


TPX LDA 
STAIY 
INC 
JMP 


*CURSOR DOWN* 


CURDN INC 
JSR 


C LN 

RAMBEG 

RAMPTR RAMPTR=CLN+RAMBEG 
CLN +91 

RAMBEG +91 

RAMPTR +91 

$03 


COL RAMPTR=C LN +RAMBEG+COL 
RAMPTR 

RAMPTR 

TPX 

RAMPTR +91 

RAMPTR +91 

SD 7 MAX IS SDJFF 

RAMPTR +91 


AHOLD 
RAMPTR 
COL COL=COL+41 
ADJUST 


INLINE INLINE=INLINE+1 
CLNDN CUREENT LINE DOWN 


8561: 
8562: 
9563: 
8564: 
9565: 
9566: 
9567: 
8568: 
8569: 
9579: 
9571: 
0572: 
8573: 
9574: 
9575: 
9576: 
9577: 
8578: 
9579: 
9589: 
9581: 
9582: 


„ 9583: 


g584: 
g585: 
g586: 
9587: 
„588: 
9589: 
9599: 
gs91: 
9592: 
9593: 
9594: 
g595: 
9596: 
9597: 
9598: 
9599: 
ged: 
4601: 
9682: 
g6g3: 
g684: 
g6g5: 
g6g6: 
9687: 
8688: 
g6g9: 
4619: 
gell: 
9612: 
8613: 
g6l4: 
9615: 
9616: 


F2D9 
F2D3 
F2D6 
F2D8 
F2DB 
F2DE 
F2El 
F2E4 
F2E7 
F2E8 


F2EB 


F2EE 
F2F1 
F2F4 
F2F 7 
F2F9 
F2FC 
F2FF 
F302 
F305 
F397 


F39A 


F39D 
F319 


F313 
F316 


F319 
F31B 
F31E 
F321 
F324 
F327 
F32A 
F32D 


F339 
F332 
F335 
F338 
F33B 


CE 
4C 


EE 
4C 


A9 
8D 
8D 
8D 
8D 


CB 
lA 


CB 
lA 


93 
Cg 
Cl 
C2 
C3 


EF 
Fg 
EF 


Fg 
Fl 
F9 
F2 
EF 


F1 


EF 
Fl 


EF 
F1 


EF 
EF 
EF 
EF 


FI 
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LDY 
CPY 
BCC 
JSR 
JSR 
JSR 
JSR 
LDY 
DEY 
STY 


CURDNX JMP 


*CURSOR UP* 


CURUP 


DEC 
JSR 
LDY 
BPL 
JSR 
JSR 
JSR 
JSR 
LDYIM 
STY 


CURUPX JMP 


INLINE 
LPSCR 
CURDNX 
FLNDN 
FLNCRT 
LLNDN 
ERALLN 
LPSCR 


INLINE 


ADJCUR 


INLINE 
CLNUP 
INLINE 
CURUPX 
FLNUP 
FLNCRT 
LLNUP 
ERAF LN 
$0g 
INLINE 


ADJCUR 


“CURSOR LEFT* 


CURLFT DEC 


JMP 


COL 
ADJUST 


*CURSOR RIGHT* 


CURRGT INC 


JMP 


*HOME CURSOR* 


HOME 


LDXIM 
STX 
STX 
LDX 
STX 
LDX 
STX 
JMP 


COL 
ADJUST 


$99 
INLINE 
COL 
FLN 
C LN 
FLN 
CLN 
ADJUST 


IS INLINE>=LPSCR? 
BRANCH ON NO 
FIRST LINE DOWN 
FIRST LINE--->CRT 
LAST LINE DOWN 
ERASE LAST LINE 


INLINE=LPSCR-1| 


ADJUST THE CURSOR AND RETURN 


INLINE=INLINE-] 
CURRENT LINE UP 

IS INLINE=NEGATIVE? 
BRANCH ON NO 

FIRST LINE UP 
FLN--->CRT 

LAST LINE UP 

ERASE THE FIRST LINE 


INLINE=g 


ADJUST THE CURSOR AND RETURN 


COL=COL-1 
ADJUST THE CURSOR AND RETURN 


COL=COL+1 
ADJUST THE CURSOR AND RETURN 


INLINE=g 
COL=9 


CLN=F LN 

+41 

+51 

ADJUST THE CURSOR AND RETURN 


*MASTER RESET OF THE MEMORY MAPPED VDU* 


RESET 


LDAIM 
STA 
STA 
STA 
STA 


500 
FLN 
FLN 
CLN 
CLN 


FLN=$9909 
+91 
CLN=$ 9009 
+31 


9617: 
g61l8: 
8619: 
9629: 
8621: 
g622: 
8623: 
8624: 
g625: 
9626: 
g627: 
3628: 
9629: 
g639: 
8631: 
632: 
9633: 
g634: 
g635: 
8636: 
9637: 
3638: 
8639: 
649: 
g64l: 
g642: 
ge43: 
g6e44: 
9645: 
9646: 
8647: 
g648: 
ge49: 
9659: 
2651: 
9652: 
9653: 
9654: 
9655: 
g656: 
9657: 
9658: 
g659: 
9668: 
9661: 
8662: 
9663: 
8664: 
9665: 
8666: 
9667: 
668: 
3669: 
9679: 
9671: 
672: 


F33E 
F341 
F344 
F347 
F34A 
F34D 


F34E 
F34F 
F352 
F355 
F358 
F35A 


F35D 
F35E 
F369 
F363 
F366 
F369 


F 36C 


F36E 
F371 
F374 
F377 
F378 
F37A 
F37C 


F37D 
F37F 


F 381 
F384 
F387 
F389 
F38C 
F38F 
F391 
F392 


F394 
F395 
F396 
F397 
F398 
F39A 


C4 
C5 
CB 


D1 


Dg 
C4 
C4 
93 
C5 


gg 
vj) 
91 


19 
F2 


16 
ES 


EF 
EF 
EF 


EF 


EF 
EF 


EF 


Ba 
F3 
F2 
F1 


D8 


D8 


F3 
EF 


F3 
23 
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STA 
STA 
STA 
STA 


DEX 


RSB DEX 
BNE 
JSR 
JSR 
JSR 
JMP 


LLN 
LIN 
COL 
INLINE 
LPSCR 


CHA PLN 
LLN 
LLN 
RSB 
LLN 


RSA 
CRTINT 
HOME 
ERTEOS 
FLNCRT 


*INITIALIZE THE CRT 


CRTINT LDXIM 


CIA STX 
LDAX 
STA 
INX 
CPXIM 
BNE 
RTS 


*COMPUTE THE 


COMCOM LDXIM 
LDYIM 


COMCOA LDAX 
CMP 
BNE 
LDAY 
CMP 
BNE 
CLC 
BCC 


COMCOB INX 
INX 
INY 
INY 
CPXIM 
BCC 


$75 


AR 
TABLE 
RFILE 


$1g 
CIA 


RESET LAST LINE 
+91 

COL=g 

INLINE=Z 


X=LPSCR-1 


LLN= (LPSCR-1 ) *CHAPLN 


+91 


SET THE CRT TIMING REGISTERS 
HOME CURSOR 

CLEAR THE SCREEN 

FLN--->CRT AND RETURN 


CONTROLLER* 


SET THE FILE INDEX 
VALUE --->FILE 


SET ONLY THE TIMING REGISTERS 


COMMAND ADDRESS INDEX%* 


$0g 
$01 


COM TAB 
ESCFLG 
COMCOB 
COMTAB 
AHOLD 
COMCOB 


COMCOC 


S16 


FIND THE COMMAND 


C=8 —-) X=ADDRESS INDEX 
AND RESET THE ESC-FLAG 


COMCOA C=l —-> NO COMMAND 


9673: 
8674: 
9675: 
8676: 
8677: 
9678: 
g679: 
9689: 
g681: 
9682: 
3683: 
9684: 
685: 
9686: 
9687: 
g688: 
ge89: 
9697: 
gel: 
9692: 
9693: 
g694: 
g695: 
9696: 
g697: 
9698: 
9699: 
9709: 
9751: 
8792: 
9783: 
9794: 
8755: 
8796: 
9787: 
8798: 
8799: 
9719: 
8711: 
8712: 
9713: 
8714: 
9715: 
9716: 
8717: 
8718: 


8729: 
8721: 
9722: 
8723: 
8724: 
9725: 
8726: 
8727: 
9728: 


F39C 
F39E 
F3A1 


F3A2 
F3A3 
F3A4 
F3A5 
F3A6 
F3A7 
F3A8 
F3A9 
F3AA 
F3AB 
F3AC 
F3AD 
F3AE 
F3AF 
F3B9 
F3B1 
F3B 2 
F3B3 
F3B4 
F3B5 


F3B6 
F3B7 
F3B8 
F3B9 
F3BA 
F3BB 
F3BC 
F3BD 
F3BE 
F3BF 
F3Cg 
F3C1 


F3C2 
F3C3 
F3C4 
F3C5 
F3C6 
F3C7 
F3C8 
F3C9 
F3CA 
F3CB 
F3CC 
F3CD 
F3CE 


A9 99 
BD CC EF 
62 
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COMCOC LDAIM S$9 


STA 


RTS 


* COMMAND 


COMTAB 


COTABA 


Mt Ht OD EE Ht 


(CCL 


TABLE * 


sgg 
$SgD 
sSgg 
SA 
Sgg 
$g8 
S1B 


SFF 
SFF 
SFF 
SFF 
SFF 


ADDRESS 


$3A 
SFg 
S45 
SFg 
s54 
SFg 
SAB 
SFg 
S4B 
SFg 
SSA 
SFg 
$78 


'ESCFLG RESET THE ESCAPE FLAG 


<CRÈ 

<LF > 

<BS>,<CTL-H> BACK SPACE 
KESC><1> CLEAR SCREEN & HOME 
KESC><2> CLEAR SCREEN & HOME 
<ESC><3> HOME CURSOR 
<ESC><4> ERASE TO EOS 
<ESC><5> CURSOR UP 

<ESC><6> CURSOR DOWN 


<ESC><8> ERASE TO EOL 


<CTL-P>- CURSOR RIGHT 


TABLE * 
CR 
LF 
CURSOR LEFT 
CLEAR SCREEN & HOME 
CLEAR SCREEN & HOME 
HOME CURSOR 


ERASE TO EOS 


8729: 
9739: 
8731: 
g732: 
9733: 
3734: 
8735: 
9736: 
8737: 
8738: 
8739: 
3748: 
8741: 
8742: 
9743: 
g744: 
8745: 
9746: 
8747: 
9748: 
9749: 
8759: 
8751: 
8752: 
9753: 
9754: 
8755: 
8756: 
8757: 
8758: 
9759: 
8768: 
8761: 
9762: 
9763: 
g764: 
8765: 
8766: 
9767: 
8768: 
9769: 


8771: 
8772: 
9773: 
8774: 
8775: 
9776: 
8777: 
4778: 
9779: 
9789: 
9781: 
9782: 
4783: 
9784: 


F3CF 
F3Dg 
F3D1 
F3D2 
F3D3 
F3D4 
F3D5 


F3D6 
F3D7 
F3D8 
F3D9 
F3DA 
F3DB 
F3DC 
F3DD 
F3DE 
F3DF 
F3E9 
F3E1 


F3E2 
F3E5 


F3E8 
F3EB 
F3ED 
F3EF 
F3F 2 
F3F 4 


F3F6 
F3F9 


F3FC 
F3FF 
F491 
F403 


25 
AC 


1D 
E8 


F4 
F3 


F8 


F8 


23 
F8 


F8 


F8 
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$rg 
569 
Srg 
$66 
Sg 
$72 
Sr 


CURSOR 


CURSOR 


UP 


DOWN 


ERASE TO EOL 


*NORMAL VIDEO COMMANDS * 


S6C 
SFg 
SFF 
SFF 
SFF 
SFF 
SFF _ 
SFF 
SFF 
SFF 
SFF 
SFF 


Mt tt U 


*CENTRONICS OUTPUT * 


CURSOR 


CENOUT JSR INICEN INIT. 
JMP CENTRO AND OUTPUT THE CHARACTER 


> VIA DEFINITIONS: 
> PA7...PAG 


DATA OUTPUT 


> CAl = /ACKN INPUT 
> CA2 = /STB OUTPUT 
> PB] = PE INPUT 

> PB9 = SEL INPUT 


CENTRO LDA VAPBD 
ANDIM 591 
BEO CTROB 
LDA VAPBD 
ANDIM S92 
BNE CTROB 


CTROA LDA AHOLD 
STA VAPAD 


WAIT LDA VAPBD 
ANDIM S$31 
BEQ CTROB 
LDA VAPBD 


IS THE 
PBJ = 


PAPER 
PBl = 


OUTPUT 


IS THE 


RIGHT 


PRINTER I/O 


PRINTER SELECTED? 
SEL INPUT 


EMPTY? 
PE INPUT 


THE CHARACTER AND 


PRINTER SELECTED 


9785: 
9786: 
8787: 
9788: 
9789: 
9798: 
9791: 
9792: 
8793: 
8794: 
9795: 
8796: 
8797: 
8798: 
g799: 
8809: 
9801: 
9882: 


9893: 
804: 
9895: 
g8g6: 
8897: 
g898: 
8809: 
9819: 
8811: 
8812: 
2813: 
8814: 
9815: 
9816: 
2817: 
9818: 
9819: 
,82g: 
821: 
9822: 
9823: 
9824: 
9825: 
g826: 
9827: 
g828: 
g829: 
9839: 
2831: 
9832: 
2833: 
4834: 
9835: 
9836: 
8837: 
4838: 
9839: 
8849: 


F496 
F498 
F4ZA 
F4GD 
F4GF 
F411 
F414 
F416 
F419 


F41C 


F41D 
F4IF 
F422 


F424 
F427 
F42A 
F42C 
F42F 
F431 
F434 


F435 
F437 
F439 
F43C 
F43F 
F441 
F442 
F445 


F447 
F448 
F44A 
F44B 


F44D 


F44E 
F451 
F454 
F455 
F456 
F458 
F45A 
F45B 
F45E 
F461 
F462 
F465 


12 


FA 


69 
DC 


12 
F4 


DC 
D1 


DC 
Dg 


F8 


F8 


F8 
F8 


F8 


F8 
F8 


F8 


EF 


EF 


EF 


F4 
EF 


EF 
EF 


EF 
EF 
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ANDIM 
BNE 
LDA 
ANDIM 
BEQ 
LDA 
ORAIM 
STA 
STA 


CTROB RTS 


*INITIALZE CE 


INICEN LDAIM 
STA 
LDA IM 


STA 
LDA 
ANDIM 
STA 
LDAIM 
STA 
RTS 


$g2 PAPER EMPTY? 
CTROB 

VAIFR SAMPLE CAl FLAG 
$02 


WAIT WAIT FOR ACKNOWLEDGE 
VAIFR 

$93 

VAIFR RESET CAl, CA2 FLAGS 
VAIFR 


NTRONICS * 

SFF PAg...PA7 = OUTPUT 

VA PADD 

SA CA2 = WRITE HANDSHAKE PULSE 


OUTPUT 


VAPCR CAl = NEG. EDGE SENSITIVE 
VAPBDD 


SFC PAG,PA1l = INPUT 

VAPBDD 

$90 RESET THE PRINTER FLAG 
CENF LG 


*MOVE THE CRT FILE FROM ROM TO RAM* 


MOVCRT LDAIM 
LDXIM 
STA 
STX 
LDAIM 
TAY 
LDX 
BEQ 


MCRTA CLC 
ADC IM 
DEX 
BNE 


MCRTB TAX 


MCRTC LDAX 
STAY 
INX 
INY 
CPYIM 
BNE 
DEY 
LDAY 
STA 
DEY 
LDAY 
STA 


$gg REFRESH RAM STARTS AT $D929 
SDg 

RAMBEG 

RAMBEG +31 

sgg 


FORMAT GET THE CURR.‚ FORMAT 
MCRTB 
$l2 COMPUTE THE INDEX 


MCRTA 


CRTINA 
TABLE MOVE THE TABLE 


$12 
MCRTC 


TABLE SET SCREEN PARAMETERS 
LPSCR 


TABLE 
CHAPLN 
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9841: F468 60 RTS 
g842: 

9843: 

8844: 

845: *CRT TIMING TABLES* 
9846: 

9847: — 89*24 -— 
9848: 

9849: F469 89 CRTINA 
9859: F46A 59 
9851: F46B 69 
9852: F46C 98 
09853: F46D 22 
9854: F46E 99 
9855: F46F 18 
8856: F478 1C 
9857: F471l 99 
9858: F472 98 
9859: F473 99 
9869: F474 D9 
9861: F475 99 


$S88 HORIZONTAL TOTAL-l = 129-l CHAR. 
$S57 HORIZONTAL DISPLAYED = 87 CHAR. 
$63 HORIZ. SYNC. POSITION = 96 CHAR. 
$S98 VERT./HORIZ. SYNC WIDTH = 16/8 

$22 VERTICAL TOTAL-l = 34 CHAR. LINES 
$99 VERT. TOTAL ADJ. = 9*64 MICRO SEC. 
$18 VERTICAL DISPLAYED = 24 LINES 

SIC VERT. SYNC. POSITION = 29 CHAR. LINES 
$38 MODE CONTROL 

$Z8 SCAN LINES-1l = 9-1 

$99 CURSOR START 

$Z9 CURSOR END 

$99 DISPLAY START (NOT NEEDED) 


9862: F476 99 sg 
9863: F477 99 $79 CURSOR POSITION (NOT NEEDED) 
9864: F478 99 $09 


$58 CHARACTERS/LINE 
$18 LINES/SCREEN 


9865: F479 59 
9866: F47A 18 


(CCC LLL} 


9867: 

9868: 

9869: - 89*25 -— 

9879: 

9871: F47B 89 = S8g 
g872: F47C 59 = $5g 
9873: F47D 69 = $69 
9874: F47E 98 = $38 
9875: F47F 22 = $22 
8876: F489 99 = $3g 
9877: F481 19 = $19 
9878: F482 1C = SIC 
9879: F483 99 = $99 
g88d: F484 38 = $98 
9881: F485 99 = sg 
3882: F486 99 = $g9 
9883: F487 39 = $g9 
9884: F488 39 = $33 
9885: F489 99 = Sgg 
3886: F48A 79 = $3g 
9887: F48B 59 = $5g 
9888: F48C 19 = s19 
9889: 

d89g: — 64*16 - 

9891: 

9892: F48D 64 = $64 
4893: F48E 49 = S4g 
3894: F48F 49 = S49 
8895: F499 95 = Sg5 


9896: F491 16 $16 
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9897: F492 JE = $JE 
9898: F493 19 = S1g 
J899: F494 12 = S12 
9939: F495 93 = Sgg 
9991: F496 BC = SgC 
9992: F497 99 = sg 
9993: F498 99 = Sg9 
9994: F499 99 = sgg 
9935: F49A 79 = Sgg 
9976: F49B 99 = sg 
9997: F49C 93 = s3g 
9998: F49D 43 = S49 
9939: F4AGE 13 = S1g 
9919: 

9911: — 64*24 -— 

9912: 

9913: F4A9F 64 = $64 
9914: F4Ag 49 = sS4g 
9915: F4Al 52 = $52 
9916: F4A2 95 = ST) 
9917: F4A3 22 = S22 
9918: F4A4 99 = sg 
9919: F4A5 18 = S18 
9929: F4A6 1C = SIC 
9921: F4A7 49 = sgg 
9922: F4A8 J8 = Sg8 
4923: F4A9 JH = sgg 
9924: F4AA g9 = sg9 
9925: F4AB 99 = $3g 
9926: F4AC 39 = Sag 
9927: F4AD 93 = Sg 
9928: F4AE 99 = sgg 
9929: F4AF 49 = S4g 
9930: F4BZ 18 = $18 
9931: 

9932: — 99*22 — 

3933: 

9934: F4Bl 87 = $87 
9935: F4B2 SA = S5A 
9936: F4B3 6A = SOA 
9937: F4B4 8 = $g8 
9938: F4B5 22 = $S22 
9939: F4B6 99 = $og 
9949: F4B7 16 = $16 
9941: F4B8 1C = SIC 
9942: F4B9 99 = $7g 
9943: F4BA 98 = $78 
9944: F4BB 99 = sgg 
9945: F4BC 99 = $g9 
9946: F4BD 99 = $gg 
9947: F4BE 99 = $gg 
9948: F4BF 99 = sag 
9949: FAC 93 = sgg 
9959: F4C] SA 5 SSA 
8951: F4C2 16 = S16 


9952: 
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9953: — 48*12 -— 

9954: 

9955: F4C3 46 = S46 
g956: F4C4 39 = s39 
9957: F4CS5 3A = S3A 
958: F4C6 95 = sSg5 
g959: F4CT7 16 = S16 
3969: F4C8 ZE = SJE 
8961: F4C9I9 BC = SgC 
9962: F4CA 12 = S12 
8963: F4CB 29 = sg9 
9964: F4ACC 9C = SBC 
9965: F4CD 99 = S5g 
9966: F4CE 99 = sg9 
9967: F4CF 92 = Sgg 
9968: F4D3 99 = Sgg 
9969: F4DÌ 49 = sg 
9979: F4AD2 29 = $9g 
9971: F4D3 39 = $S30 
9972: F4D4 BC = SC 
29973: 

9974: — 24*24 — 

9975: 

9976: F4D5 38 = $38 
8977: F4D6 18 = $18 
4978: F4D7 26 = $26 
9979: F4D8 95 = $g5 
9989: FA4AD9 22 = s22 
9981: F4DA 09 = sg 
9982: F4DB 18 = s18 
8983: F4DC 1C = SIC 
9984: F4DD 99 = sgg 
9985: FA4ADE 98 = $Sg8 
2986: F4DF 99 = $9g 
9987: FAES 49 = $g9 
9988: F4El 99 = Sgg 
2989: F4E2 49 = Sg 
3999: F4E3 99 = sgg 
3991: F4E4 49 = sg 
9992: F4E5 18 = $18 
9993: F4E6 18 = $18 
g994: 

9995: — 89*24 WUSA) — 

9996: 

9997: F4E7 99 = s33 
9998: F4E8 99 = $gg 
9999: F4AEI GJ = Sag 
1999: F4EA 99 = sg 
1431: F4EB 99 = s3g 
1992: F4EC 99 = sgg 
19293: F4ED 99 = $3g 
1924: F4EE 99 = $3g 
1995: F4EF gg = Sgg 
1996: F4F3 39 = s3g 
1997: F4F1 99 = $0g 


1998: F4F2 99 s0g 


1999: 
1913: 
1911: 
1912: 
1913: 
1914: 
1915: 
1016: 
1917: 
1418: 
1919: 
1929: 
1921: 
1922: 
1923: 
1824: 
1925: 
1826: 
1927: 
1928: 
1829: 
1939: 
1931: 
-T 


F4F3 
FA4AF4 
F4F5 
F4AF6 
FA4F7 
F4AF8 


F4F9 
F4F9 


F4F9 
F4FC 
FA4FE 
F501 
F504 


F 507 
F5ZA 
F5gD 


FF 
EF 
F3 
FE 


FS 


RESTTY 
RECCHA 


CHE 


CHECKA 


PAGE 19 


Ut u 


% 


JSR 
LDAIM 
STA 
JSR 
JSR 


JSR 
JSR 
JMP 


sgg 
Sg 
$39 
$g9 
s5g 
$18 


SFF O3 
SFE1B 


RESTTY 
39 
FORMAT 
MOVCRT 
RESET 


RECCHA 
VIDEO 
CHECKA 


89*24 DISPLAY 


SYMBOL 
HORTOT 
VERTOT 
MODE 
DSPSTH 
LIPENH 
ESC 
AHOLD 
CLN 
INLINE 
RAMBEG 
INDEX 
CENFLG 
IRQVEC 
BRKTST 
FEED 
UP 
ERSCRX 
FLNUP 
CLNDN 
ADSA 
ACURB 
CRAMPT 
EROLX 
EEOL 
TVPUT 
CURUP 
HOME 
CRTINT 
COMCOB 
COMADR 
WAIT 
MCRTA 
CHE 
VAPBDD 
VATALL 
VASR 
VAIER 
RESTTY 


TABLE 3498 377E 


905 
994 
9338 
B99C 
9919 
991B 
2363 
EFC2 
EFCA 
EFCE 
EFD3 
EFF S 
EFF 5 
FOlA 
Fg45 
Fg6g 
Fg78 
F99C 
FOF 9 
F142 
F189 
F1DA 
F219 
F 261 
F29A 
F2EE 
F319 
F 36C 
F394 
F3C2 
F3FC 
F447 
F4F9 
F892 
F896 
F8gA 
F89E 
FF 93 


HORDIS 
VTOTAJ 
SCANLN 
DSPSTL 
LIPENL 
DUMMY 
AR 

LLN 
COL 
CHAPLN 
BUFFER 
DUPLEX 
TRA PRO 
CHECK 
C LRHOM 
DOWN 
DELLIN 
CLNUP 
LLNDN 
ADJV 
ACURX 
CRAMP 
EROXX 
EEOLB 
TPX 
CURUPX 
RESET 
CIA 
COMCOC 
CENOUT 
CTROB 
MCRTB 
CHECKA 
VAPADD 
VATALH 
VAACR 
VAPADN 


9891 
9995 
9399 
999D 
9011 
Z91F 
D899 
EFC4 
EFCB 
EFD 
EFD4 
EFF] 
EFF 7 
Fg22 
FO4B 
F966 
F97E 
F5B1 
F195 
F16A 
F18C 
FIFF 
F 22B 
F 269 
F2BF 
F39A 
F339 
F36E 
F39C 
F3E2 
F41C 
F44D 
F597 
F8g3 
F897 
F82B 
F8gF 


HSYPOS 
VERDIS 
CURSTA 
CURPOH 
UPDATH 
SPACE 
RFILE 
SCRPTR 
ESCFLG 
LPSCR 
TABLE 
AUTOLF 
VIDEO 
VALVEC 
LEFT 
RIGHT 
VALID 
LLNUP 
ADJUST 
ADJCUR 
ACURC 
ERTEOL 
ERTEOS 
ERAF LN 
CURDN 
CURLFT 
RSA 
COMCOM 
COMTAB 
CENTRO 
INICEN 
MCRTC 
VAPBD 
VATACL 
VATBCL 
VAPCR 
SPAD 


9372 
9536 
39DA 
93E 
9312 
9728 
D891 
EFC6 
EFCC 
EFD] 
EF DC 
EFF 2 
FO99 
F437 
Fg54 
F96C 
F 98C 
F4C6 
F1lA 
F16D 
FIAE 
F 200 
F234 
F 26E 
F 2CA 
F39D 
F 34E 
F37D 
F3A2 
F3E8 
F4ID 
F44E 
F899 
F894 
F878 
F89C 
FA89 


VHSYWI 
VSYPOS 
CUREND 
CURPOL 
UPDATL 
RAMPTR 
FLN 
CURSOR 
TEMCOL 
FORMAT 
JMPVEC 
NMIVEC 
VIDEND 
RETURN 
HOCU 
ERLNX 
TOSCR 
FLNDN 
ADJU 
ACURA 
FLNCRT 
EREOL 
EREOS 
ERALLN 
CURDNX 
CURRGT 
RSB 

C OMC OA 
COTABA 
CTROA 
MOVCRT 
CRTINA 
VAPAD 
VATACH 
VATBCH 
VAIFR 
RECCHA 


9053 
9397 
99 JB 
Z5DF 
9013 
976C 
EFC9 
EFC8 
EFCD 
EFD2 
EFEE 
EFF 3 
FOgF 
Fg3A 
FOS5A 
F972 
Fg96 
F 9DB 
F135 
F17A 
F1C4 
F 216 
F 249 
F 284 
F 2EB 
F313 
F35D 
F381 
F3B6 
F3F6 
F435 
F469 
F8g1 
F8g5 
F8g9 
F85D 
FEIB 


SYMBOL TABLE 3499 377E 
HORTOT 2399 HORDIS 4991 HSYPOS 2992 VHSYWI 9993 
VERTOT 9994 VTOTAJ 4995 VERDIS 9996 VSYPOS 9997 


MODE 098 SCANLN Z999 CURSTA JJJA CUREND J44B 
DSPSTH Z99C DSPSTL J99D CURPOH Z9JE CURPOL ZIJF 
LIPENH 9419 LIPENL 9911 UPDATH 5912 UPDATL 4413 
ESC 391B DUMMY ZJÌF SPACE 8029 RAMPTR J96C 
AHOLD 2363 AR D889 RFILE D891 FLN EFC9 
CLN EFC 2 LLN EFC4 SCRPTR EFC6 CURSOR EFC8 
INLINE EFCA COL EFCB ESCFLG EFCC TEMCOL EFCD 
RAMBEG EFCE CHAPLN EFDO LPSCR EFD] FORMAT EFD2 
INDEX EFD3 BUFFER EFD4 TABLE EFDC JMPVEC EFEE 
CENFLG EFF DUPLEX EFF 1 AUTOLF EFF 2 NMIVEC EFF 3 
IRQVEC EFFS5 TRAPRO EFF 7 VIDEO Fg999 VIDEND F9GF 
BRKTST FOlA CHECK F822 VALVEC F937 RETURN F93A 
FEED Fg45 CLRHOM FO4B LEFT Fg54 HOCU F95A 
UP F569 DOWN F966 RIGHT F96C ERLNX F972 
ERSCRX F978 DELLIN F97E VALID F98C TOSCR F996 


FLNUP F99C CLNUP FOBÌ LLNUP F9C6 FLNDN F9DB 
CLNDN FOF9 LLNDN F195 ADJUST F1lA ADJU F135 
ADSA F142 ADJV F16A ADJCUR F16D ACURA F17A 
ACURB F189 ACURX F18C ACURC FIlAE FLNCRT F1C4 


CRAMPT F1DA CRAMP FIFF ERTEOL F 209 EREOL F216 
EROLX F219 EROXX F22B ERTEOS F 234 EREOS F249 
EEOL F 261 EEOLB F269 ERAFLN F 26E ERALLN F 284 
TVPUT F29A TPX F2BF CURDN F2CA CURDNX F2EB 
CURUP F2EE CURUPX F 39A CURLFT F39D CURRGT F313 
HOME F319 RESET F339 RSA F34E RSB F35D 
CRTINT F36C CIA F36E COMCOM F37D COMCOA F381 
COMCOB F394 COMCOC F39C COMTAB F3A2 COTABA F3B6 
COMADR F3C2 CENOUT F3E2 CENTRO F3E8 CTROA F3F6 
WAIT F3FC CTROB F41C INICEN F4ÌD MOVCRT F435 
MCRTA F447 MCRTB F44D MCRTC F44E CRTINA F469 
CHE F4F9 CHECKA F 597 VAPBD F849 VAPAD F891 
VAPBDD F892 VAPADD F893 VATACL F894 VATACH F895 
VATALL F896 VATALH F897 VATBCL F898 VATBCH F899 
VASR F89A VAACR F89B VAPCR F89C VAIFR F80D 
VAIER F8ZE VAPADN F89F SPAD FA8G RECCHA FEÌB 


RESTTY FF 93 


DEMO 1 
"Teken de Junior-Computer’’ 


Dit demonstratieprogramma is voor de DOS-Junior geschreven. Als dit 

programma op een Junior-Computer met cassette-interface en KB-9 BASIC 

gedraaid wordt, dan moeten twee regels gewijzigd worden: 

regel 83: POKE6722+5,34 : POKEB5722+9,7 : POKE8256,158 : 
POKE8256,158 : POKE8257 15 : X = USR(X) 


regel 92: POKE6722+5,9 : POKE6722+9 8 : POKE8256,158 : 
POKE8257,15 : X = USR(X) 


OMO IAU BWN 


FORTZ=1T03 

GOSUB 73 

PT=13*16"3 

DEF FNX(X)=(Y*80)+X+PT 

DEF FNY(Y)=(Y*80)+X+PT 

GOTO16 ‘ 


A=18:B=12 


L=10:Y=B:T=A+3:GOSUB95:T=A+3:Y=B-1:GOSUB98: T=A+2: Y=B-1 
GOSUB193:T=A+l:Y=B-1:GOSUB109:X=A: T=B-1:GOSUB196: T=A-1l:Y=B-1 
GOSUB199:T=A-2:Y=B-1:GOSUB121:T=A-3:Y=B-1:GOSUB125:T=A-L-3 
Y=B:GOSUB95: T=A-L-4:Y=B+L/2+1:GOSUB98: T=T+2: Y=Y+L+l : GOSUB1O3 

T=T+l:Y=B+2*L+2:GOSUB101:T=B+1+L: X=A: GOSUB197: T=A+1 +L 
Y=B+2*L+2:GOSUB110:T=A+L+2:Y=B+l+L: GOSUB122: T=T+2: Y=B+L/2+1 
GOSUB125 

GOTO68 

X=38:B=6:D=-l:L=5:CH=161:GOSUB136:A=X:D=l:CH=154:L=40 
GOSUB133:B=Y+l:X=X-1:L=4:CH=161:GOSUB136:A=X:D=-1:CH=155:L=78 
GOSUB133:B=Y:X=X+l:D=l:L=16:CH=161l:GOSUB136:A=X:L=79: CH=l 51 


GOSUB133:B=Y-l:D=-l:L=16:CH=161: X=X-1:GOSUB136 
X=35:Y=19 

GOSUB 112 

GOSUB112 

GOSUB112::GOSUB112:X=X+3:GOSUB112 


X=X+2:GOSUB129: X=X+2:GOSUB129 

X=X-39:Y=Y+3 

GOSUB112:GOSUB112:GOSUB112:GOSUB112 
X=X+3:GOSUB112::GOSUB112 

X=X-39: Y=Y+3 

GOSUB112:GOSUB112:GOSUB112:GOSUBI112 
X=X+3:GOSUB112::GOSUB112 

X=X-39:Y=Y+3 

GOSUB112:GOSUB112:GOSUB112:GOSUB112 
X=X+3:GOSUB112::GOSUB1I12 

X=38:Y=11 
DATA67,68,69,79,56,57,65,66,52,53,54,55,48,49,50,51 
FORT=1TO16 :READCH: POKEFNX (X ) „CH: X=X +6 
IFT/4<>INT(T/4)GOTO39 

Y=Y+3:X=X-24 

NEXT 
DATA32,43,68,65,65,68,80,67,71,79,118,109,195,114,115,116 
Y=Y-3 
X=X+26:FORT=1TO4:READCH: POKEEFNX (X ) „CH: X=X +1 3 READCH : POKEFNX 4X ) ,CH 
X=X-1l:Y=Y-3:NEXT 

X=X +6: Y=Y+6:READCH: POKEFNX EX) „CH: X=X +1 : READCH : POKEFNX (X ) ,CH 
X=X-l:Y=Y+3:FORT=ITO6: READCH: POKEENX (X) „CH: X=X+1l: IFT <>3GOTO47 
X=X-3:Y=Y+3 

NEXT 

X=44:Y=4 

A=X:FORX=ATOA+29 
IFX=46ORX=47ORX=5GORX=5LORX=6GORX=6 1THENPOKEFNX (X) , 151 
NEXT 

Y=3:FORX=ATOA+20 

IFX=45ORX=49ORX=5 3ORKX=57ORKX=5IORX=6ITHENPOKEFNX(X),153 
IFX=48ORX=5 20RX=56ORX=6 2THENPOKEENX (X) , 156 

NEXT 

Y=2:FORX=ATOA+20 

IFX=48THENPOKEFNX (X) , 156 
IFX=540RX=55ORX=6GORX=61ORX=65ORX=64THENPOKEFNX (X ) , 159 
NEXT 
A=8:Y=l4:L=20:D=l:L=20:CH=217:GOSUB133: POKEFNX (X) , 168 
B=Y-1:CH=156:L=3:D=-1:GOSUB136: POKEFNX(X) , 167 
A=X-1:CH=215:L=28:GOSUB133: POKEFNX IX) , 165 
B=Y+l:D=l:L=3:CH=157:GOSUB136: POKEFNX (X) , 166 


A=X+10:Y=Y-2: X=A 


65 DATA54,53,48, 59 

66 GOSUB138 

67 GOTO7 

68 FORZ=1TO2000:NEXT : RESTORE 

69 NEXT 

79 END 

7l REM 

72 REM z:1:::23328888iesre sss sessies eee 
73 REM SCREEN RESET = $F330; SF3=243/$30=48 

74 REM SET GRAPHIC MODE (8*8 DOT MATRIX) 

75 REM LOOKUP TABLE OF THE CRT CONTROLLER 

76 REM TABLE = SEFDC; SEF=239/$DC=229 

77 REM R5 = VERTIKAL TOTAL ADJ. = TABLE+5 

78 REM R9 = SCAN LINES = TABLE+9 

79 REM RESET = $F330 = 62256 

89 REM TABLE = SEFDC = 61494 

81 REM z:z:::222i:iesinessssssesseeeeeessnensssssssss 
82 REM 

83 POKE61404+5, 34: POKE61404+9, 7: POKE5S74,48: POKE5S75, 243: X=USR0X) 
84 RETURN 

85 REM 

86 REM z::::1i8iii8888e sense sees e sees 
87 REM NORMAL SCREEN RESET = $F330 

88 REM SET NORMAL CHARACTER MODE (8*9 DOT MATRIX) 

89 REM MODIFY THE LOOKUP TABLE 

99 REM z1i1t2138r Ere ee EDES e 
91 REM 

92 POKE61404+5,0:POKE61404+9,8: POKE574, 48: POKE5S75, 243: X=USR (X) 


118 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


RETURN 
REM HORIZONTAL BEAM 
FOR X=T TOT+L:POKEFNX(X),131:NEXT 
RETURN 
REM 39 DEGREE BEAM 
FORX=TTOT+LSTEP2: POKEFNX(X) , 196: POKEFNXAX+1 ),195:Y=Y-l: NEXT 
RETURN 

REM 69 DEGREE BEAM 

FORX=T TOT+L:POKEFNX(X),202:Y=Y-1l:POKEFNXIAX) , 201: Y=Y-l:NEXT 
RETURN 

REM 45 DEGREE BEAM 

FORX=TTOT+L: POKEFNX AX) ,189:Y=Y-1l:NEXT 

RETURN 

REM 99 DEGREE BEAM 

FORY=TTOT-LSTEP-1 : POKEFNY fY ) ,139:NEXT 

RETURN 

REM 129 DEGREE BEAM 
FORX=TTOT-LSTEP-1l:POKEFNX(X) ,199:Y=Y-1: POKEFNX AX), 200: Y=Y-1:NEXT 
RETURN 

REM KEYBOARD KEY 
X=X+1l:POKEFNXIX) ,149:Y=Y+1: POKEFNXAX) ,149:Y=Y+l: POKEFNX(X) , 166 
A=X+l:FORX=ATOA+3 : POKEFNX (X ) , 162: NEXT 

POKEFNX (X) , 168 

Y=Y-1l:POKEFNXIX) ,149:Y=Y-1: POKEFNXIX) ‚149 

RETURN 

FORX=ATOA+3: POKE FNX(X),161:NEXT 
FORY=B+1TOB+3 : POKEFNX (X) , 136:NEXT 

RETURN 

REM 135 DEGREE BEAM 
FORX=TTOT-LSTEP-1 : POKEFNX 4X) ,199:Y=Y-1:NEXT 

RETURN 

REM 

REM 159 DEGREE BEAM 


126 
127 
128 
129 
139 
131 
132 
133 
134 
135 


Ok 


Y=Y+l:PO=FNY 0Y ) : POKEPO, 145 
X=X tl: PO=FNY 6Y ) : POKEPO, 152 
Y=Y+l:PO=FNY (Y) : POKEPO, 152 
X=X-l:PO=FNY (Y) : POKEPO, 144 
X=X-l : PO=FNY 0Y) : POKEPO, 153 
Y=Y-l:PO=FNY (Y) : POKEPO, 153 
X=X+tl:Y=Y+2: PO=FNY (Y) : POKEPO, 149 : RETURN 

REM 

REM 

POKE6194+5,0: POKE61494+9,8: POKES5S 74,48: POKES575, 243: X=USR (Xx) : RETURN 


» 


DEMO 2 
“Teken een schakelschema” 


Dit demonstratieprogramma is voor de DOS-Junior geschreven. Als dit 

programma op een Junior-Computer met cassette-interface en KB-9 BASIC 

gedraaid wordt, dan moeten twee regels gemodificeerd worden: 

regel 104: POKE6722+5,34 : POKE6722+9,7 : POKE8256,158 : 
POKE8257,15 


regel 135: POKE6722+5,9 : POKE6722+9 8 : POKE8256,158: 
POKE8257,15 : X =USR(X) : RETURN 


REM See sseenns eeens esters 


REM- sus sees geene Melee ee eked ee ee eenen eee see 
REM 
DEF FNX(X)=(Y#*80)+X+13*16°3 
DEF FNY(Y)=fY*80)+X+13*16°3 
REM 
REM 
pt=13*16°3:GOSUB134 
FORx=GTO255:POKEpt,x:pt=pt+4:NEXT: FORxX=1TO2000: NEXT 
REM 
GOSUB102 
GOSUBI5:FORx=1TO19090: NEXT 
END 
GOSUB 192 
X=lg:Y=23:X$= "kkk ELEKTOR'S Junior Computer Graphic Demo ***" 
GOSUB196 
REM 
HB=1l6:HE=HB+15:Y=6:CH=155:D=l : GOSUB95 
VB=6:VE=VB+8:X=HE:CH=161 : GOSUB98 
HB=X-l:HE=HB-15:D=(-1):Y=VE:CH=154:GOSUB95 
VB=Y:VE=VB-8:D=(-1) : X=HE: CH=161 : GOSUB 98 
X=X+5:Y=(VB+VE)/2: XS$="NE 555" :GOSUB199 
X=38:Y=2: POKEFNY WY) ,149:GOSUB124: Y=Y+1 : PO=FNY #Y) : POKEPO, 218 
GOSUB124: Y=Y+l : PO=FNY (Y) : POKEPO, 218: Y=Y+1: POKEFNY (Y),218 
Y=Y+l:POKEFNY fY ),149:GOSUB113 
VB=2:VE=VB+3:D=l: X=28:CH=l49: GOSUB98 
Y=VE+9:GOSUB113 
VB=2:VE=VB+3:D=l: X=19:CH=1 49: GOSUB98 
VB=VE+1g:VE=VB+3:D=l: X=19:CH=l49:GOSUB 98 
HB=1l9:HE=HB+40:D=l:Y=l:CH=128:GOSUB95 
HB=19+13:HE=HB+5:D=l:Y=7:CH=l 31: GOSUB95 
HB=19-5:HE=HB-10:D=(-1):Y=7:CH=l3l:GOSUB95 
HB=19+13:HE=HB+5:D=l:Y=7+5:CH=l31:GOSUB95 
HB=19+13:HE=HB+5:D=l:Y=Y+1:CH=131:GOSUB95 
HB=19:HE=HB+4g:D=l:Y=19:CH=135:GOSUB95 
REM 
DATA143,135,196,195,32,32,199,32,32,196,195,200,143,135 


REM 

VB=13:VE=13+4: X=45:D=l: READ CH: GOSUB98 
HB=X+l:HE=HB+20:Y=VE:D=l:READ CH: GOSUB95 
REM 

Y=16 

FORK=1TO2 

X=46:FORV=0TO4:READ T:V(V)=T:NEXT 
FORI=GTO2 

FORJ=9TO4:CH=V (JI): POKE (FNX(X)+J+5*I),CH: NEXT 
NEXT 

Y=Y=-l 

NEXT 

REM 


VB=15:VE=VB+4:X=g:D=l: READ CH: GOSUB98 
HB=X+1l:HE=HB+16:Y=VE: D=l: READ CH: GOSUB95 
REM 

HE=HB+4: Y=VE-2:D=l:GOSUB95 
VB=Y:VE=Y+l:CH=l36:GOSUB98 
VB=VE:VE=VB-l:X=X+1:CH=143:D=-1 : GOSUB 98 
HB=X+l:HE=HB+4:D=l:CH=128:GOSUB95 
VB=Y+l:VE=Y+2:CH=l36:GOSUB 98 

VB=VE: VE=VB-1l:X=X+1:CH=143:D=-1 : GOSUB98 
HB=X+l:;HE=HB+2:D=l:sCH=128:GOSUB95 

REM 

X=4g:Y=4:X$="1gD K":GOSUB196 


114 
115 
116 
117 
118 
119 
129 
121 
122 
123 
124 
125 


YT=Y:Y=Y+l:X$="Ra" :GOSUB196: Y=YT 

Y=J:X$="27 K":GOSUB196 
YT=Y:Y=Y+l:X$="RD":GOSUBIJ6: Y=YT 

Y=l7:X$="1g n":GOSUB196 
YT=Y:Y=Y-l:X$="C"sGOSUBIG6: Y=YT 

XT=X:YT=Y: X=EXt7:Y=Y- 3e S= "UC": GOSUB1AG: X=EXT: Y=YT 
X=X-1: Y=l7:X$="1g n":GOSUB1G6 

REM 

X=62:Y=5:X$="1l. 44": GOSUB196 

X=55:Y=Y+tl: X$="F=";GOSUB106:HB=58:HE=HB+10:CH=131:D=1:GOSUB95 
Y=Y+l:X=HBi X$=" (Ra+2*Rb) *C":GOSUB106 

REM 

F=l.44/((100E3+2*27E3)*10E-9) 

X=55:Y=Y+4: X$= "Fz": GOSUBIJ6: X=58: XS=STRS (F) : GOSUBig6 
X=X+19:X$=" Hz" :GOSUB106 

REM 

X=2:Y=9: X$= "Output" :GOSUB19G6 

X=2:Y=l6: X$="Vout":GOSUB196 

X=13:Y=8: X$="3":GOSUB1JG 

X=13+29:X$="7":GOSUB1J6 

Y=Y+3:X$="6":GOSUB16 

Y=zY+3:X$="2":GOSUB196 

X=X-8:Y=Y+2: X$="5":GOSUB1J6 
X=X-4:sXS$="1":GOSUB1JG6 

Y=Y-12:X$="4":GOSUB196 

X=X+4:X$="8":GOSUB1JG6 


RETURN 

END 

REM 

REM normal screen reset 


VB=Y+l:VE=Y+1:CH=l 36: GOSUB98 

REM WRITE horizontal 

FOR X=HB TO HE STEP(D): PO=FNX(X): POKE PO,CH: NEXT 
RETURN 

REM 

REM WRITE VERTICAL 

FOR Y=VB TO VE STEPID): PO=FNY(Y): POKE PO,CH: NEXT 
RETURN 

REM 

REM reset the screen 

POKE61494+5, 34: POKE61494+9, 7: POKE574,48: POKE575, 243 
X=USR (X ) : RETURN 

REM 


REM poke X$ on the screen 

REM INPUT: x,y and X$="string" 
REM 

PT=FNY €Y) 


FOR S=l TO LEN (XS$) : POKE PT,ASC(MIDS(XS$,S,1)):PT=PT+1 : NEXT 
RETURN 

REM 

REM vertical C subroutine 
Y=Y+1l:PO=FNY fY) : POKEPO, 149 
X=X-l:Y=Y+l:PO=ENY (Y) : POKEPO, 148 

X=X tl: PO=FNY #Y ) : POKEPO, 215 
X=Xtl:PO=FNY (Y) : POKEPO, 148 
Y=Y+l:PO=FNY (Y ) : POKEPO, 148 

X=X-l : PO=FNY #Y) : POKEPO, 217 

X=X-l : PO=FNY (Y) : POKEPO, 148 
X=Xtl:Y=Y+l: PO=FNY (Y ) : POKEPO, 149: RETURN 
REM 

REM vertical R subroutine 
Y=Y+l:PO=FNY #Y) : POKEPO, 149 


126 
127 
128 
129 
139 
131 
132 
133 
134 
135 


Ok 


Y=Y+1l:PO=FNY #Y) : POKEPO, 145 

X=X+1l : PO=FNY (Y ) : POKEPO, 152 

Y=Y+l:PO=FNY (Y ) : POKEPO, 152 

X=X-1l: PO=FNY (Y) : POKEPO, 144 

X=X-1l : PO=FNY (Y ) : POKEPO, 153 

Y=Y-1l:PO=FNY (Y) : POKEPO, 153 e 
X=Xtl:Y=Y+2: PO=FNY (Y) : POKEPO, 149 : RETURN 

REM 

REM 

POKE6194+5,0: POKE61404+9,8: POKE5S74,48: POKE575, 243: X=USR (Xx) : RETURN 


